Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Speichern==> Speichert nicht! (https://www.delphipraxis.net/8848-speichern%3D%3D-speichert-nicht.html)

Die Muhkuh 13. Sep 2003 11:33

Re: Speichern==> Speichert nicht!
 
Speichern geht nun nur das Laden nicht!

Die Muhkuh 13. Sep 2003 11:35

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;

iaby 13. Sep 2003 11:37

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;

Die Muhkuh 13. Sep 2003 11:44

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

Meflin 13. Sep 2003 11:47

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.
Seite 2 von 2     12   

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