text datei in einen string einladen ... ich mal wieder !

[agm65]

Code:

AssignFile(F, FilePath);
Reset(F);
ReadLn(f,s) ;
MYSTRING := s;
CloseFile(F);

Hallo leute...
also mein source hier ließt wunderbar die erste zeile einer text datei aus und übergibt diese an MYSTRING !

ich möchte jetzt aber den kompletten inhalt der text datei an den string übergeben, wie mache ich das.....danke cu agm65


mit dem kopf durch die wand ruleZ

[Luckie]

Lass eine while-Schleife bis zum Dateiende EOF(F) laufen.

[agm65]

ja das hatte ich auch vor...aber dann kriege ich die erste zeile nicht ...kannst du mir mal den code posten ? thx alot cu agm65

[S2B]

Aber wenn du nur die erste Zeile nicht kriegst, dann kanst du sie doch mit einem "+" zum anderen String hinzufügen! Ich würde das dann irgendwie so machen:
s:=Text1 + #13#10 + Text2; Müsste doch gehen, oder?

[Luckie]

Delphi-Quellcode:

var
  s, s1: String;
begin
  AssignFile(F, FilePath); 
{$I-}
  Reset(F); 
{$I+}
  if IOResult = 0 then
  begin
    while not EOF(F) do
    begin
      ReadLn(F, s1) ; 
      s := s + s1;
    end;
    Showmessage(s);
    CloseFile(F); 
  end;

[agm65]

luckie: zu deinem source...also jetzt gibt er mir nur die letzte zeile der txt file wieder und die gleich 2 mal ?? sonst leider nichts

[agm65]

nein jetzt gehts YIPPI ! 1000 dank !

[Luckie]

Ungetestet, bin mir aber keines Fehlers bewußt. Hast du noch was geändert?

[agm65]

nein geht jetzt alles 1a ! könnte nicht besser sein , von der ersten bis zur letzten zeile !

du bist mein mann !

[Luckie]

Also hast du falsch abgetippt?