Entwickler-Ecke :: Thema anzeigen - StringList aus Memo füllen und umgekehrt

bf109g.01 - Di 23.08.11 16:51
Titel: StringList aus Memo füllen und umgekehrt

Hallo, ich möchte mit meine Speichern-Prozedur die Zeilen eines Memos in eine Stringlist übertragen, das dann speichern und beim wieder auslesen, die Zeilen aus der stringlist wieder ins Memo schreiben:
meine Lösung sieht so aus:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TFFragen.Frage_speichern(Stelle:integer);
var I:Integer;
begin
  for i := 0 to Fr_MLoesung.Lines.Count - 1 do   // Lösungstext
    AFragen[Stelle].Loesung[i]:=Fr_MLoesung.Lines[i];
end;

procedure TFFragen.Frage_laden(Stelle:Integer);
var I:Integer;
begin
  for i := 0 to AFragen[Stelle].Loesung.Count - 1 do   // Lösungstext
    Fr_MLoesung.Lines.add(AFragen[Stelle].Loesung[i]);
end;

Beides gibt Fehlermeldungen über Zugriffsverletzungen und ich sehe einfach gerade nicht, wo der Fehler liegt. Vermutl überschreitet irgendwo die Schleife die Dateiränder...

Moderiert von Narses: Topic aus VisualCLX (Component Library for Cross Platform) verschoben am Di 23.08.2011 um 18:52

colaka - Di 23.08.11 20:42

Hallo,

die Fehlermeldung kommt möglicherweise davon, daß Du die Stringliste nicht erzeugt hast. Außerdem kannst Du Dir die Schleife sparen und den Inhalt direkt übergeben.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Liste := TStringlist.Create;
  Liste.AddStrings(Memo1.Lines);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.AddStrings(Liste);
end;

Gruß Ebi

Andreas L. - Mi 24.08.11 07:47

Oder:

Delphi-Quelltext

1:	Liste.Text := memo1.Lines.Text;

Und wenn es nur um speichern und laden geht:

Delphi-Quelltext

1:
2:

  Memo1.Lines.LoadFromFile('C:\Datei.txt');
  Memo1.Lines.SaveToFile('C:\Datei.txt');

Gausi - Mi 24.08.11 08:18

colaka hat folgendes geschrieben :

die Fehlermeldung kommt möglicherweise davon, daß Du die Stringliste nicht erzeugt hast.

Eher nicht. Die Meldung kommt daher, dass das i-te Element einer Stringliste vor dessen Einfügen noch gar nicht existiert. Daher kann dem auch nichts zugewiesen werden. Das Hinzufügen eines Elementes geht mit Add. Der korrekt umgebaute Code würde also so lauten:

Delphi-Quelltext

1:
2:

for i := 0 to Fr_MLoesung.Lines.Count - 1 do   // Lösungstext
    AFragen[Stelle].Loesung.Add(Fr_MLoesung.Lines[i]);

Die anderen Lösungen funktionieren natürlich auch, als weitere Alternative schlage ich Assign vor. ;-)

bf109g.01 - Do 25.08.11 16:22

Na klar, sonste könnte ich doch gar nicht kompilieren...
So wie ich die Fehlermeldung verstehe, über- oder unterschreitet die Funktion an irgendeiner Stelle das Textende / den Anfang.
Ergibt aber bei den ^^ vorschgeschlagenen Lösungen keinen Sinn mehr, diese Erklärung....

Horschdware - Do 25.08.11 16:33

Ich glaube, du hast das falsch verstanden: Ich wollte wissen, ob das Objekt zu diesem Zeitpunkt existiert.

Wenn die Schleife schon im Kopf abbricht und gar nicht erst in den Schleifenrumpf gelangt, dann ist das hier in diesem Fall wohl die einzige plausible Lösung, dass das Objekt nicht initialisiert ist.
Ich glaube, es wäre sinnvoll, wenn du einmal deinen kompletten Code hier postest. Dann sollte das hier etwas transparenter werden.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!