Während die Listbox die 12 Items ausgibt, gibt das Memo nur die Lines 0 und 1 aus, warum?
Delphi-Quellcode:
uses DateUtils;
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to 13 -1 do
begin
Memo1.lines.strings[i] := timetostr(IncSecond(now, 10+(i*8)))+' '+'Test '+ inttostr(i);
Listbox1.Items[i]:= timetostr(IncSecond(now, 10+(i*8)))+' '+'Test '+ inttostr(i);
end;
end;