Textdatei in Liste laden

[Schnittcher]

Hallo,

ich speicher meine Liste so:

Delphi-Quellcode:

procedure TForm1.cmdListSpeichernClick(Sender: TObject);
var
  i: integer;
  pAuto: IAuto;
  myfile: TextFile;
  temp, temp2, temp3: string;
begin
  try
    if AutoList = nil then
      raise
        EBerechnung.Create('Wenn es keine Liste gibt, kann man sie auch nicht speichern.');
    if SaveDialog1.Execute then
      AssignFile(myFile, SaveDialog1.FileName);
    Rewrite(myFile);
    for i := 0 to AutoList.Count - 1 do
    begin
      pAuto := AutoList.Items[i];
      temp := pAuto.ErgebnisName;
      temp2 := FloatToStr(pAuto.ErgebnisKW);
      temp3 := FloatToStr(pAuto.ErgebnisPS);
      WriteLn(myfile, 'Name:    ', temp, 'KW:    ', temp2, 'PS:    ',
        temp3);
    end;
    CloseFile(myFile);
  except
    on E: EBerechnung do
      MessageDlg(E.Message, mtInformation, [mbOK], -1);
  end;
end;

Wie kann ich diese Liste jetzt wieder laden?

Gruß,
Schnittcher

[Forlan]

Read etc...
Ansonsten könnte man auch direkt nach "Textdatei laden" googlen oder hier suchen.

MfG

[Schnittcher]

Hallo,

vielleicht hätte ich dabei schreiben sollen, dass ich das mit dem OpenDialog machen wollte.

Und das ist eine IInterfacedList.

Gruß,
Schnittcher

[DeddyH]

Da es sich ja eh um reine Textspeicherung handelt, könnte man auch eine TStringlist verwenden. Außerdem fällt mir auf, dass da wohl noch ein begin-end fehlt.

Zitat:

Delphi-Quellcode:

if SaveDialog1.Execute then
      AssignFile(myFile, SaveDialog1.FileName);
    Rewrite(myFile);

Wenn der Dialog abgebrochen wird, dürfte das Rewrite in die Hose gehen. Desweiteren würde ich einen try-finally-Block einsetzen, in dessen finally das CloseFile steht.

[himitsu]

Zitat von Schnittcher:

vielleicht hätte ich dabei schreiben sollen, dass ich das mit dem OpenDialog machen wollte.

Und das ist eine IInterfacedList.

Das ist im Prinzip egal.

Du hast das Speichern schon und das Laden ist praktisch genau andersrum.

Rewrite > Reset
WriteLn > ReadLn
auch kann EoF helfen, wenn man die Anzahl der Einträge nicht gespeichert hat

dann den String vom ReadLn in seine Bestandteile zerlegen
eventuell noch das Objekt/Interfact in AutoList erzeugen
und dem Objekt/Interfact die Werte zuweisen

[Schnittcher]

Hallo,

kann mir denn einer sagen wie ich das mache, dass ich

WriteLn(myfile, 'Name: ', temp, 'KW: ', temp2, 'PS: ', 'Name: '
'KW: '
'PS: '

teile und die werte davon in

pAuto.ErgebnisName
pAuto.ErgebnisKW
pAuto.ErgebnisPS

eintrage?

Gruß,
Schnittcher

[DeddyH]

Mit Pos() und Copy() könntest Du die Zeile wieder zerlegen. Allerdings wäre es IMHO einfacher, typisierte Dateien statt Textdateien zu verwenden, das spart die ganze Stringfrickelei samt Konvertierung.

[Schnittcher]

Hallo,

Zitat von DeddyH:

Mit Pos() und Copy() könntest Du die Zeile wieder zerlegen. Allerdings wäre es IMHO einfacher, typisierte Dateien statt Textdateien zu verwenden, das spart die ganze Stringfrickelei samt Konvertierung.

könntest du mir das mal genauer erklären?

Gruß,
Schnittcher

[Klaus01]

Zitat von DeddyH:

Mit Pos() und Copy() könntest Du die Zeile wieder zerlegen. Allerdings wäre es IMHO einfacher, typisierte Dateien statt Textdateien zu verwenden, das spart die ganze Stringfrickelei samt Konvertierung.

.. oder eine kleine Datenbank (SqLite o.ä) nehmen

Grüße
Klaus

[DeddyH]

@Klaus: Das Thema Datenbank hatte ich bewusst vermieden
@Schnittcher: Was genau soll ich Dir erklären?