Readln will irgendwie nicht

[Cr3at0r]

Hi,

ich find den Fehler irgendwie nicht, kann sich ma einer von euch den folgenden Code anschauen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var F:TextFile;
begin
  If OpenDialog1.Execute Then
    Begin
    AssignFile(F,OpenDialog1.Filename);
    Reset(F);
    Readln(F,Memo1.Text);
    CloseFile(F);
  end;

end;

Vielen Dank im Voraus ;)

[hoika]

Hallo,

ReadLn liest nur ein Zeile.
Du muesstest das per while und memo.lines.add machen.

Einfacher ist aber Memo.LoadFromFile.


Heiko

[divBy0]

Was willst du denn machen?

Aus der Datei lesen und ins Memo schreiben?

Das müsste so gehn:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var 
  F:TextFile;
  tmp : String;
begin
  If OpenDialog1.Execute Then
    Begin
    AssignFile(F,OpenDialog1.Filename);
    Reset(F);
    Readln(F,tmp);
    CloseFile(F);
    Memo1.Lines.Add(tmp);
  end;

end;

Hoika war schneller...

[Cr3at0r]

Danke für die schnellen Antworten.
Habe die Lösung von divBy0 gewählt, weil wir das auch so in der Schule machen müssen. ;)

Habe gerade bemerkt, das wenn ich das Memo speichere, dass er nur die erste Zeile speichert aber wie erweitere ich das denn beim WriteLn?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var F:Textfile;
begin
  If SaveDialog1.Execute Then
    Begin
    AssignFile(F,SaveDialog1.FileName);
    Rewrite(F);
    Writeln(F,Memo1.Text);
    CloseFile(F);
    end;
end;

So sieht er bisher aus. ;)

[hoika]

Hallo,

selber coden macht schlau .. ;)
Writelen schreibt auch nur eine Zeile.
Gehe per Schleife über memo.lines und trage jede
einzelne Zeile per WriteLn ein.


Heiko

[stifflersmom]

In Deinem Fall also

Delphi-Quellcode:

For I:=0 to Memo1.Lines.Count -1 do
 Writeln(F,Memo1.Lines[i]);

Moin

[inherited]

Welcher Lehrer verlangt so einen Mist? :wall:
Mag er es, ecuh zu Quälen, oder warum lässt er euch nicht einfach TMemo.SaveToFile und TMemo.LoadFromFile benutzen?

[divBy0]

Ihr kennt doch Lehrer, oder? Warum einfach, wenn's auch umständlich geht?!?! :gruebel:

[Cr3at0r]

Joa stimmt, war nicht die feine Art von mir. ;)

Nachtrag:

Zitat:

Zitat von divBy0

Ihr kennt doch Lehrer, oder? Warum einfach, wenn's auch umständlich geht?!?! :gruebel:

Jo, das stammt wohl daher,dass er nur das kann was wir auch machen und es über SaveToFile und LoadFromFile geht weiß ich auch aber er will ja das andere hören. :(
Mit dem Memo haben wir das nie gemacht, sondern eher mit einer Listbox. ;)

[QuickAndDirty]

Vielleicht ist ein realitätsnahes Beispiel für die noch zu schwer?