Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
13. Nov 2004
Hai Jens,
ich habe den Code inkl. der Exe mal hier zum downloaden abgelegt (208 kB).
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
13. Nov 2004
Dann sei so gut und teste es.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
13. Nov 2004
Hai Jens,
bei mir geht es so ohne Probleme ;-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
13. Nov 2004
Hier mal ein Beispiel. Dafür habe ich die Funktion nur leicht verändert ;-)
function DownToUp (const source : TStringList) : TStringList;
var
ndx : Integer;
dest : TStringList;
begin
dest := TStringList.Create;
try
for ndx := Pred (source.count) downto 0 do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
13. Nov 2004
Hai blackyhb,
Du könntest dir Dafür eine Funktion schreiben die dann als Ergebniss eine TStringListe zurückgibt.
Ungetestet:
function DownToUp (const sl : TStringList) : TStringList;
var
ndx : Integer;
begin
for ndx := Pred (sl.count) downto 0 do
begin