Ja, aber ich weiß doch nicht, wie viele Datensätze unter dem 11.11.2004 eigetragen sind. Können 2 aber auch 20 sein. Du meinst doch diesen Code, oder?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
StrArry: TStringDynArray;
I: Integer;
begin
// Anstatt von Explode
SetLength(StrArry, 12);
StrArry[0] := 'Datum1'; StrArry[1] := 'Zeit1'; StrArry[2] := 'Person1'; StrArry[3] := 'Wert1';
StrArry[4] := 'Datum2'; StrArry[5] := 'Zeit2'; StrArry[6] := 'Person2'; StrArry[7] := 'Wert2';
StrArry[8] := 'Datum3'; StrArry[9] := 'Zeit3'; StrArry[10] := 'Person3'; StrArry[11] := 'Wert3';
// ---
I := 0;
while I < High(StrArry) do
begin
with ListView1.Items.Add do
begin
Caption := StrArry[I];
SubItems.Add(StrArry[I + 1]);
SubItems.Add(StrArry[I + 2]);
SubItems.Add(StrArry[I + 3]);
end;
Inc(I, 4);
end;
end;