C++ Code in Delphi-Code umwandeln

[Handycommander]

Hallo,

wer kann mir dem C++ Code in Delphi übersetzen? Ich habe es mal probiert
bin aber nicht auf die richtige Lösung gekommen.

Danke

Tobias

Hier ist der Code:

void __fastcall TForm1::SaveBtnClick(TObject *Sender)

{

TStringList *list = new TStringList();

for (int i = 0; i < LiVReferenz->Items->Count; i++)

{

list->Add(LiVReferenz->Items->Item[i]->Caption);

list->Add(LiVReferenz->Items->Item[i]->SubItems->CommaText);

}

list->SaveToFile("C:\\temp\\lv.txt");

delete list;

}

void __fastcall TForm1::LoadBtnClick(TObject *Sender)

{
TStringList *list = new TStringList();

list->LoadFromFile("c:\\temp\\lv.txt");

LiVReferenz->Items->Clear();

TListItem* item(NULL);

int itemCount = list->Count / 2;

for (int i = 0; (i <= itemCount) && (itemCount > 0); i+=2)

{

item = LiVReferenz->Items->Add();

item->Caption = list->Strings[i];

item->SubItems->CommaText = list->Strings[i + 1];

}

delete list;

}

Es ist ein Code wie man die ListView-Einträge in eine StringList abspeichern kann und dann wiede aufrufen.

Danke

[Robert Marquardt]

Ungetestet, aber das sollte es sein<br>
<pre>
procedure TForm1.SaveBtnClick(Sender: TObject);
var
I: Integer;
List: TStringList;
begin
List := TStringList.Create;
for I := 0 to LiVReferenz.Items.Count-1 do
begin
List.Add(LiVReferenz.Items.Item[I].Caption);
List.Add(LiVReferenz.Items.Item[I].SubItems.CommaText);
end;
List.SaveToFile('C:\temp\lv.txt');
List.Free;
end;

procedure TForm1.LoadBtnClick(Sender: TObject);
var
I: Integer;
List: TStringList;
Item: TListItem;
ItemCount: Integer;
begin
List := TStringList.Create;
List.LoadFromFile('C:\temp\lv.txt');
LiVReferenz.Items.Clear;
Item := nil;
ItemCount := List.Count div 2;
for I := 0 to ItemCount-1 do
begin
Item := LiVReferenz.Items.Add;
Item.Caption := List.Strings[I*2];
Item.SubItems.CommaText := List.Strings[I*2+1];
end;
List.Free;
end;
</pre&gt