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?
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?!?!

[Cr3at0r]

Joa stimmt, war nicht die feine Art von mir.

Nachtrag:

Zitat von divBy0:

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

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?