Probleme beim String einlesen und übergeben

[agm65]

Nabend Leute,

ich kämpfe verzweifelt mit einen string problem (habe natürlich schon im forum gesucht):
also ich habe eine text datei die ich in einen string einlade und zwar so:

Code:

AssignFile(f,Filepath);
      Reset(f);
      while not EOF(f) do
      begin
      readln(f,s);
// jetzt hier ein fehler beim übergeben des strings an einen weiteren string
      NewString := s;  //<---der string wird nicht übergeben wenn ich ihn danach abrufen will,
      end;             //----ist er leer
      CloseFile(f);

Fehler NR2:
der string hat mehrere zeilen und ich möchte nur die erste zeile des string an den 2ten string (newstring) übergeben ...


bitte bitte helft mir !


thx cu agm65

[Tanadirian]

Wie kommst du darauf das 's' mehrere Zeilen hat? Du liest die Datei doch mit

Delphi-Quellcode:

readln(f,s);

zeilenweise ein. Vielleicht steht in 's' nix drin? Ansonsten wüsste ich auch nicht weiter.

[Luckie]

Wird NewString auch irgendwo verwendet? Ansonsten optimiert dir Delphi weg.

[agm65]

ja wird verwendet

[Luckie]

Geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: Textfile;
  s, NewString: String;
begin
  AssignFile(F, 'c:\boot.ini');
{$I-}
  Reset(F);
{$I+}
  if IOResult = 0 then
  begin
    while not EOF(F) do
    begin
      ReadLn(F, s);
      NewString := s;
      ShowMessage(NewString);
    end;
    CloseFile(F);
  end
  else
    RaiseLastOSError();
end;

Irgendwo musst du noch was falch machen.

[agm65]

luckie, wie schneide ich denn von diesem string die erste zeile aus `? und übergebe nur die erste zeile des eingelesenen strings ?

[Luckie]

Readln liest nur eine Zeile aus einer Textdatei. Die Borländer haben sich dabei schon was gedacht die Prozedur readline zu nennen.

[agm65]

nein macht es nicht , also ich hab das bei ner conole anwendung !

wenn ich dann

Code:

writeln(newstring)

mache, gibt er mir die ganze text datei wieder ... ?

[Luckie]

Machst du eventeull sowas wie:

Delphi-Quellcode:

NewString := NewString + s;

Glaub mir mein Code, so wie er da steht gibt mir für jede Zeile eine Messagebox aus. probier es auch. Button auf eine Form un den Code reinkopiert, nur noch den Pfad zur Datei anpassen und kucken und staunen. :roll:

[agm65]

nein mache ich nicht .....ich kann dir mal den source schicken wenn du willst.....schreib mir ne icq message...das kenn echt nicht sein...