![]() |
Re: Speichern==> Speichert nicht!
Speichern geht nun nur das Laden nicht!
|
Re: Speichern==> Speichert nicht!
Bei laden steht das drinnne:
Delphi-Quellcode:
procedure TForm1.Laden1Click(Sender: TObject);
begin SL := Application.MessageBox ('Achtung alle Daten seit dem letzen'+#10#13+'werden verloren gehen!', 'Öffnen', 1+32); if opendialog1.execute then begin Memo1.Lines[0] := Panel1.Caption; Memo1.Lines[1] := Panel2.Caption; Memo1.Lines[2] := Panel3.Caption; Memo1.Lines[3] := Panel4.Caption; Memo1.Lines[4] := Panel5.Caption; Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end; end; |
Re: Speichern==> Speichert nicht!
Code:
var datei: textfile;
p_caption: array[1..5] of string; i: integer; begin if opendialog1.execute then begin assignfile(datei, opendialog1.filename); reset(datei); i:= 0; while not eof(datei) do begin inc(i); readln(datei, p_caption[i]); end; panel1.caption:= p_caption[1]; panel2.caption:= p_caption[2]; panel3.caption:= p_caption[3; ... end; end; |
Re: Speichern==> Speichert nicht!
OK es Geht!!!
Nämlich so:
Delphi-Quellcode:
procedure TForm1.Speichern1Click(Sender: TObject);
var datei: textfile; begin if Savedialog1.Execute then begin assignfile(datei, savedialog1.filename); rewrite(datei); writeln(datei, panel1.caption); writeln(datei, panel2.caption); writeln(datei, panel3.caption); writeln(datei, panel4.caption); writeln(datei, panel5.caption); closefile(datei); end; end; procedure TForm1.Laden1Click(Sender: TObject); var datei: textfile; p_caption: array[1..5] of string; i: integer; begin if opendialog1.execute then begin assignfile(datei, opendialog1.filename); reset(datei); i:= 0; while not eof(datei) do begin inc(i); readln(datei, p_caption[i]); end; panel1.caption:= p_caption[1]; panel2.caption:= p_caption[2]; Panel3.caption:= p_caption[3]; Panel4.caption:= p_caption[4]; Panel5.caption:= p_caption[5]; end; end |
Re: Speichern==> Speichert nicht!
wow, jetzt hast du n paar möglichkeiten zur auswahl...
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:12 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz