Eine lineare Liste an Strings als Datei speichern

[thejacensolo]

Hey, wie schon oben geschrieben versuche ich eine lineare Liste an Strings als Datei abzuspeichern, so dass ich sie später aufrufen kann.
Ich probiere einen Vokabel-Trainer zu programmieren, und erstelle eine Liste, in der die Vokabeln eingespeichert werden. (mit initvok) usw. Diese Liste kann auch abfragen, und löschen. Jetzt würde ich gerne noch dass speichern dazu nehmen, da es strings sind habe ich versucht es mit liste.savetofile(edit1.text + edit2.text + '.txt') zu speichern, aber dass klappt natürlich nicht. Ja ich habe dass Forum und Google durchsucht, und bin auf keine Lösung gekommen. soll ich eine Variable in meiner Unit Tliste erstellen die immer wenn eine vokabel erzeugt wird sie einspeichert? wäre dass nicht zu lang? Habt ihr da ein paar tipps?
Das ist mein bisherige Lösung:

Delphi-Quellcode:

procedure TForm1.Button12Click(Sender: TObject);
begin
  liste.SaveToFile(Edit2.text + Edit3.text + '.txt');
end;

Gruß
Tibor

Liste ist natürlich ein Objekt der klasse Tliste

[Luckie]

Was für eine Klasse liste? Und was heißt "klappt nicht"?

[thejacensolo]

liste ist ein objekt der klasse Tliste

Delphi-Quellcode:

UNIT mTListe;

interface

//--------------------  ggf Uses-Liste anpassen !  --------------------
uses  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, ComCtrls, Menus, mTVokabel;

type
  TListe = class

  public //Attribute
    Laenge : Integer;
    Erste : TVokabel;
     //Objektbeziehungen:
        // kenntTVokabel : TVokabel;

  public //Methoden
    constructor initList (E: String; D: string); virtual;
    procedure hinzufuegen (E: String; D: string); virtual;
    function abfragen (n: integer) : string; virtual;
    function Dabfragen (n: integer) : string; virtual;
    function zufallfragenE (n: integer) : string; virtual;
    function zufallfragenD (n: integer) : string; virtual;
    procedure loeschen(n: integer); virtual;
   end;

implementation

//+---------------------------------------------------------------------
//|         TListe: Methodendefinition 
//+---------------------------------------------------------------------

//-------- initList (public) -------------------------------------------
constructor TListe.initList (E: String; D: string);
var V: TVokabel;
begin
  Laenge := 1; //Liste enthaelt erstmal 1 Vokabel
  V := TVokabel.initVok(E,D); // Erzeuge mir eine Vokabel mit dem Wort Vok HIER PROBLEM
  Erste := V;
end;

//-------- hinzufuegen (public) ----------------------------------------
procedure TListe.hinzufuegen (E: String; D: string);
var aktVok, neueVok: TVokabel; i: Integer;
begin

  neueVok := TVokabel.initvok(E,D); //Erzeuge erstmal Vokabel
  // 1. Fall: Es gab bisher nur 1 Vokabel
  if Laenge = 1 then
  Erste.Naechste := neueVok
  else
  begin
    aktVok := Erste;
    for i := 1 to Laenge -1 do //Achtung
    begin
      aktVok := aktVok.Naechste // die neue Aktuelle ist die alte Naechste
    end;
    aktVok.Naechste := neueVok;
  end;
  inc(Laenge);
end;

//-------- abfragen (public) -------------------------------------------
function TListe.abfragen (n: integer) : string;
var i: integer; vokabel: Tvokabel;
begin
  Vokabel := Erste;
  //n := Random(t);
  for i:= 1 to n - 1 do
   begin
     Vokabel := vokabel.naechste;
   end;
   result := vokabel.englisch;
end;

function TListe.Dabfragen (n: integer) : string;
var i: integer; vokabel: Tvokabel;
begin
  Vokabel := Erste;
  //n := Random(t);
  for i:= 1 to n - 1 do
   begin
     Vokabel := vokabel.naechste;
   end;
   result := vokabel.Deutsch;
end;

function Tliste.zufallfragenD (n: integer) : string;
var i:integer; vokabel: Tvokabel;
  Begin
    vokabel := erste;
   for i := 1 to n - 1 do
    begin
      vokabel := vokabel.naechste;
    end;
   result := vokabel.englisch;
  end;

function Tliste.zufallfragenE (n: integer) : string;
var i:integer; vokabel : tvokabel;
  Begin
   vokabel := erste;
   for i := 1 to n - 1 do
    begin
      vokabel := vokabel.naechste;
    end;
   result := vokabel.deutsch;
  end;

procedure TListe.loeschen (n:integer);    //FEHLER
 var i:integer; vokabel,vokabel2 : tvokabel;
  Begin
   vokabel := erste;
   for i := 1 to n - 2 do
    begin                               //naechte.naechste
      vokabel := vokabel.naechste;
    end;
   vokabel2 := vokabel.naechste;
   vokabel.naechste := vokabel.naechste.naechste;
   vokabel := vokabel2;
   vokabel.destroy;
  laenge := laenge - 1;
end;
  end.

Der Fehler ist Indetifier intends no memeber "savetofile"

[DeddyH]

Stimmt ja auch, eine Methode SaveToFile konnte ich in Deiner Listenklasse nirgends entdecken.

[thejacensolo]

Aber wie kann ich sonst diese Liste (die ja eigentlich nur aus strings besteht) abspeichern?

[Aviator]

Wenn du die Liste mit Liste.SaveToFile() abspeichern willst, dann muss in deiner Klasse auch eine entsprechende Funktion existieren, die diese Möglichkeit anbietet. Schreib dir also in deiner Klasse eine Funktion, die die Liste speichert.

Oder leite deine Klasse von TStringList ab. Dort gibt es eine SaveToFile Methode wenn ich mich nicht täusche. Dann musst du wenn ich das richtig verstehe eigentlich gar nichts mehr machen.

[himitsu]

Zitat von thejacensolo:

Aber wie kann ich sonst diese Liste (die ja eigentlich nur aus strings besteht) abspeichern?

Indem DU eine Speicherfunktion für deine Klasse schreibst? (die darfst du auch gern SaveToFile nennen, wenn sie ihre Daten in eine Datei speichert)

Wenn es alle einzeilige Strings sind, dann kannst du dafür gern eine TStringList benutzen, wo DU die Strings erstmal reinkopierst. (TStrings.Value)