Habe eine Form mit 2 Buttons und einem Edit.
Mit der Form.create sollen 2 neue Edits erstellt werden
Während der Lauf zeit sollen die Daten in den Edits in eine Datei gespeichert werden.
Über einen 2. Button sollen die Daten eingelesen werden und Button1,2 und Form. caption mit den daten
geändert werden.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=2;
edit:=Tedit.create(Self);
edit.Name:= 'Edit' + IntToStr(i);
Edit.Text:= Edit.name+'.Text';
Edit.Top:=231;
Edit.Left:=400;
edit.Parent := Self;
i:=i+1;
edit:=Tedit.create(Self);
edit.Name:= 'Edit' + IntToStr(i);
Edit.Text:= Edit.name+'.Text';
Edit.Top:=261;
Edit.Left:=400;
edit.Parent := Self;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
begin
s:= TButton(Sender).name;
st := Tstringlist.create;
st.Add(Edit1.text); //Hier klappt es da Edit1 schon vorhanden ist
st.Add(Edit2.text); //Hier meckert er
st.Add(Edit3.text); // Hier auch
st.SaveToFile(s+'.ini');
st.free;
end;
Die Daten lesen und als Caption wiedergegeben soll hier passieren
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
st := Tstringlist.create;
st.LoadFromFile('Button1.ini');
Button1.Caption:= st.strings[0];
Form1.Caption:= st.Strings[1];
Button2.Caption:= st.Strings[2];
end;