hallo
ich möchte gerne den speicherpfad ('C:\\data.txt') in einer Form3 ändern und speichern.
wie könnte ich das ungefähr machen?
dass ich den Form3.Edit1.TExt in einem Form1.Label9.Caption speichere und
der var x das Caption von Label9 zuweise?
z.B so?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,x: String;
begin
a:=Combobox1.Text;
b:=Combobox2.Text;
c:=Edit1.Text;
d:=Edit2.Text;
e:=Combobox3.Text;
x:=Label9.Caption;
if length(Combobox1.Text)+length(Combobox2.Text) + length(Edit1.Text)
+ length(Edit2.Text) + length(Combobox3.Text) < 39
then ShowMessage('Could not login!')
else
ListBox1.Items.Add(Combobox1.text);
ListBox1.Items.Add(Combobox2.text);
ListBox1.Items.Add(Edit1.text);
ListBox1.Items.Add(Edit2.text);
ListBox1.Items.Add(Combobox3.text);
ListBox1.Items.SaveToFile(x);
ShowMessage('User successfully logged in!');
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists(x) then ListBox1.Items.LoadFromFile(x);
Form3:
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Label9.Caption := Edit1.Text;
Close;
end;