10 Richedit in eine Datei speichern und wieder auslesen

[ferby]

Hi,

Ich möchte ein Programm das 10 Richeditfelder (in einen Menü kann man wählen in welchen man schreiben will) hat. Den inhalt soll man dann in eine Datei Speichern können. In der Datei soll pro Zeile der Inhalt eines Richeditfeldes stehen. Das Programm habe ich schon geschrieben (nur schnell) aber es ist ein Fehler drinn den ich nicht finde....
Wenn ich einmal Speicher dann gehts, aber wenn ich nochmal speicher dann nicht mehr und ich weiß nicht warum....

könnt ihr euch das Programm mal anschauen, bitte die Programmierung nicht ändern sondern nur den Fehler suchen es ist nämlich ein Teil aus einen größeren Programm... DANKE!


Ferby

[Luckie]

Zitat:

Zitat von ferby

könnt ihr euch das Programm mal anschauen, bitte die Programmierung nicht ändern sondern nur den Fehler suchen

Wir sind hier nicht bei 9live!

Poste die relevanten Codeteile und sag uns was nicht klappt bzw. was für ein Fehler kommt.

[ferby]

Hi,

Das Programm ist sehr kurz und ich weiß nicht in welchen codeteil der Fehler ist.
Wenn ich Abspeicher das Programm lade dann geht noch alles aber wenn ich jetzt nochmal auf speichern gehe und das programm neu öffne dann verschwinden zeilen und in der text datei verrutschen zeilen, ich weiß nicht warum...

[gmarts]

Wenn's so kurz ist, dann poste es doch hier. :) (P.S. die exe nächstes mal nicht mitpacken, dein armer modemuser)

Wenn du mal in deine Textdatei schaust, dann siehst du, das es richtig gespeichert wird.
Also genügt es die Procedure fürs Öffnen hier zu posten.

So z.B.:

Delphi-Quellcode:

var
  Form1: TForm1;
  waserwillrichedits: array [1..10] of TRichedit;
    textdatei:textfile;
...

procedure TForm1.Button1Click(Sender: TObject);
var
i,i2:integer;
waserwillvar:ansistring;
begin
   assignfile(textdatei, 'test.txt');   // Richeditfelder werden geladen
   reset(textdatei);
   for i:=1 to 10 do
   begin
      readln(textdatei,waserwillvar);
      for i2:=1 to length(waserwillvar) do if waserwillvar[i2]=#1 then waserwillvar[i2]:=#10;
      waserwillrichedits[i].text:=waserwillvar;
   end;
   closefile(textdatei);
end;

Dann vielleicht etwas übersichtlichere Namen. (waserwillhier waserwilldort waserwilldennüberhaupt....)
So und jetzt schauen wa mal drüber...

[ferby]

Hallo,

Ich finde keinen Fehler......

[gmarts]

Wieso so kompliziert? :D

Laden:

Delphi-Quellcode:

for i:=1 to 10 do  readln(textdatei,waserwillrichedits[i].text);

Speichern:

Delphi-Quellcode:

 for i:=1 to 10 do writeln(textdatei,waserwillrichedits[i].text);

[ferby]

Hallo,


ALso wirklich wie soll das gehen? Wenn im 1 Richedit jetzt zwei Zeilen stehen dann stehen zwei Zeilen in der txt Datei, wenn ich jetzt wieder Lade dann steht die erste Zeile der Textdatei im Richedit1 und die zweite im Richedit2....

[Christian Seehase]

Moin ferby,

Zitat:

Zitat von ferby

In der Datei soll pro Zeile der Inhalt eines Richeditfeldes stehen.

Das halte ich für zu aufwendig.
Warum speicherst Du nicht in einen FileStream.
Erst die Länge des Feldes, dann den Inhalt.

[ferby]

Hallo,


Kannst du mir da ein Besipiel geben, ich wüßt wie ich das mit einen richedit mach aber nicht mit 10 in einer Datei????


Frohe Weinachten an alle,
Ferby

[StanY]

Du bastelst dir nen Dateiheader, bestehend aus 10 Integer.

Dann speicherst du die Längen der RichtEdit Felder im Header.

Danach kommt nacheinander einfach der Inhalt der RichEdits.

Beim auslesen: Header auslesen. Auf Grund der Größen die RichEdits auslesen.

edit: Alternativ statt Header eine eigene Datei, wo die Längen drin stehen.