Speichern und öffnen

Hallo Leutz,

ich muss für die Schule ein Programm schreiben.

Ich versuche gerade mehrere Editfelder und Labels "schön" in einer Datei zu speichern und gleichzeitig zu öffnen.

Hier mein Text

void __fastcall TForm1::Button1Click(TObject Sender)
{
TStringListlist=new TStringList();
list->Add(Label1->Caption+" "+Edit1->Text);
list->Add(Label2->Caption+" "+Edit2->Text);
list->Add(Label3->Caption+" "+Edit3->Text);
list->Add(Label4->Caption+" "+Edit4->Text);
list->SaveToFile("c:\\test.txt");
delete list;
Form1->Close();
}

Bei mir wird halt immer die Datei test.txt genannt.
Wie kann ich ein speichern unter realisieren? damit ich die Datei sowie den Speicherort umbennen kann?
Und wie lautet der Befehl zum gleichzeitigen öffnen der .txt Datei?

Bitte nicht so schwer. Ich bin Anfänger und Möchte auch später nicht wirklich viel programmieren.
Bitte.

Danke

Rostfrei**

Schau mal in die Hilfe zu SaveDialog speziell FileName.

Öffnen

TStringList*list=new TStringList(); 
list->LoadFromFile(OpenDialog->FileName);
...
delete list;

Gruss

Du musst eine TSaveDialog - Komponente einbinden.

Du findest du unter "Dialoge" in der Komponentenpalette

Dann schreibst du das:

void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
TStringList*list=new TStringList(); 
list->Add(Label1->Caption+" "+Edit1->Text); 
list->Add(Label2->Caption+" "+Edit2->Text); 
list->Add(Label3->Caption+" "+Edit3->Text); 
list->Add(Label4->Caption+" "+Edit4->Text); 
if(SaveDialog1->Execute())
{
list->SaveToFile(SaveDialog1->FileName);
delete list; 
Form1->Close(); 
}
}