SVN-Integration von Delphi(XE) steht nun unter OS

[Piethan]

Leider läuft dieses Tool nicht unter Delphi 2009, da dort tlist<t>.last fehlt. Ich hatte schon am WE probiert es zu kompilieren.

Delphi-Quellcode:

procedure TSvnLogFrame.AddRevisions(Revision: Integer; Time: TDateTime;
  const Author, Comment: string; const Files: TStringList);
var
  TempRev: string;
  TempTime: string;
  FirstItem: Boolean;
begin
  FirstItem := Revisions.Items.Count = 0;
  TempRev := IntToStr(Revision);
  TempTime := DateTimeToStr(Time);
  FRevisionList.Add(TRevision.Create(TempRev, TempTime, Author, Comment, Files));
  AddRevisionToListView(FRevisionList.Last);
  if FirstItem then
    Revisions.Items[0].Selected := True;
end;