Speichern und öffnen

Reply to Speichern und öffnen on Wed, 21 Jun 2006 15:03:46 GMT

Willibald — Wed, 21 Jun 2006 15:03:46 GMT

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

Reply to Speichern und öffnen on Wed, 21 Jun 2006 15:27:42 GMT

Rostfrei** — Wed, 21 Jun 2006 15:27:42 GMT

Schau mal in die Hilfe zu SaveDialog speziell FileName.

Öffnen

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

Gruss

Reply to Speichern und öffnen on Wed, 21 Jun 2006 15:29:48 GMT

banned_EinM — Wed, 21 Jun 2006 15:29:48 GMT

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(); 
}
}