Inhalt von EditFeldern speichern/öffnen

Wie kann ich in meheren Editfeldern (26) geschriebene Informationen speichern und dannauch auch wieder öffnen sodass in jedem Feld wiede die originale Information steht...

Wie kann ich das realisieren?

Füge den Text jedes EditFelds in dasselbe Memo in jeweils einen neue Zeile ein.
Dann musst du nur eine feste Ordnung festlegen, Zeile 1 gehört Edit1, etc...
Und dann speicherst du das Memo.
Dann lädst du es und liest die jeweiligen Zeilen aus.

Zum Laden und Speichernd es Textes eines Memos findest du hier sicher was.

Das geht aber auch "feiner", indem du eine TStringlist nimmst, in der zu Zeile für Zeile die Strings der Edit-Felder speicherst.
Sie bietet auch Methoden zum Speichern und Laden auf die/von der Festplatte.

Hättet ihr freundlicherweise uach Codes...

bitte

Man könnte ja auch einfach alles in eine INI-File, oder die Registry speichern.

Speichern in 'ner INI ginge dann in etwa so:

markieren

Delphi-Quellcode:

Var MyIniFile: TIniFile;
  i: Integer;

Begin
  MyIniFile := TIniFile.Create('myapp.ini');
  For i := 1 to 60 do
    MyIniFile.WriteString('Edits', 'Edit' + IntToStr(i),
      TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  MyIniFile.Free;
End;

PS: das mit dem TMemo/TStringList ... sollte doch recht einfach sein, denn schließlich gibt es massig Beispielcodes alleine in der OH dazu.

Und auch wenn ich diesesmal etwas Code geliefert hab, so ist dieses nicht immer der Fall bei ins ... ein bißchen Eigeninitiative sollte schon vorhanden sein

Ja das eintragen in eien TString list währe ienfacher nur ich weis nicht
wie ich dann aus der tstring list wieder die namen den memo feldern zuordnen soll

keinen PLAN...

Da ich keinen Code klauen will hab ich es mal selber versucht..

zusammenfalten · markieren

Delphi-Quellcode:

var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    MyList.Add(edit1.Text);
    MyList.Add(edit2.Text);
    MyList.Add(edit3.Text);
    MyList.Add(edit4.Text);
    MyList.Add(edit5.Text);
    MyList.Add(edit6.Text);
    MyList.Add(edit7.Text);
    MyList.Add(edit8.Text);
    MyList.Add(edit9.Text);
    MyList.Add(edit10.Text);
    MyList.Add(edit11.Text);
    MyList.Add(edit12.Text);
    MyList.Add(edit13.Text);
    MyList.Add(edit14.Text);
    MyList.Add(edit15.Text);
    MyList.Add(edit16.Text);
    MyList.Add(edit17.Text);
    MyList.Add(edit18.Text);
    MyList.Add(edit19.Text);
    MyList.Add(edit20.Text);
    MyList.Add(edit21.Text);
    MyList.Add(edit22.Text);
    MyList.Add(edit23.Text);
    MyList.Add(edit24.Text);
    MyList.Add(edit25.Text);
    MyList.Add(edit26.Text);

   finally
    end;

  end;

geht das auch kürzer

Nun ja, zuerst kannst du ja über FindComponent die Edits suchen, brauchst also nicht jedes einzeln behandeln.

markieren

Delphi-Quellcode:

var
  MyList: TStringList;
  i: Integer;
begin
  MyList := TStringList.Create;
  for i := 1 to 26 do
    MyList.Add(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  MyList.SaveToFile('Dateiname.txt');
  MyList.Free;
end;

zusammenfalten · markieren

Delphi-Quellcode:

var
  MyList: TStringList;
  i: Integer;
begin
  MyList := TStringList.Create;
  MyList.LoadFromFile('Dateiname.txt');
  for i := 1 to 26 do
    TEdit(FindComponent('Edit' + IntToStr(i))).Text := MyList[i - 1];
    // -1, da der Index in der Stringlist mit 0 beginnt
    // MyList[...] entspricht MyList.Strings[...]
  MyList.Free;
end;

Allerding alles ohne Fehlerkontrollen und so...

JA es geht !!!!! DANKE EUCH....