Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
14. Mär 2008
Würde ich nicht so sagen:
TestCode:
procedure TForm1.Button2Click(Sender: TObject);
var
sl : TStringList;
sl2 : TstringList;
tick1 : Longword;
i,j : longint;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
14. Mär 2008
.. um das ganze einmal zu untermauern.
Getestet habe ich so:
procedure TForm1.Button2Click(Sender: TObject);
var
sl : TStringList;
sl2 : TstringList;
tick1 : Longword;
i,j : longint;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
14. Mär 2008
.. ist denn TStringList.exchange nicht ehr für soetwas gut?
j:=0;
for i:=daten.count -1 downto (daten.count -1) div 2 do
begin
daten.exchange(i,j);
inc(j);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
14. Mär 2008
Was Hansa meint ist vielleicht das:
datenU:= TStringList.create;
for i:=daten.count -1 downto 0 do
DatenU.add(daten);
Memo2.lines.assign(datenU);
datenU.free;