Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
19. Jan 2009
Danke, das wars. Man kann ja nicht alles kennen. ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
19. Jan 2009
Ich kann im Moment leider nicht an dem Pojekt weiterarbeiten: http://www.delphipraxis.net/internal_redirect.php?p=990793#990793
OK, geht wieder. :roll:
Richtig, wenn ich die variablen als var deklarierere bekomme ich
Meine Collection sieht so aus:
TContactCollection = class(TList)
private
Forum: Object-Pascal / Delphi-Language
Delphi
by Luckie,
19. Jan 2009
Folgen der Code:
procedure TContactCollection.MySort;
var
i, j : integer;
begin
for i := 1 to Self.Count do
for j := Self.Count - 1 downto i do
if Self.Items.FName < Self.Items.FName then