Forum: Algorithmen, Datenstrukturen und Klassendesign
by Helmi,
23. Nov 2012
Mein schönes Pred :(:vernupft:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Helmi,
23. Nov 2012
Der vollständigkeitshalber:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
n: Integer;
begin
for i := Pred(Memo1.Lines.Count) downto 0 do
If TryStrToInt(Memo1.Lines.Strings, n) then
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Helmi,
23. Nov 2012
wie wärs damit:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
n: Integer;
begin
for i := Pred(Memo1.Lines.Count) downto 0 do
If TryStrToInt(Memo1.Lines.Strings, n) then