Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
Ich habe irgendeine Textdatei genommen, welche ist doch egal.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
while not EOF(F) do
begin
ReadLn(F, s);
CoD := s;
writeln(s) // <--- was ist das?!?!?
end;
CloseFile(F);
writeln(cod); // <-- und was ist das?!?!
Mach mal die Augen auf und kuck dir die Ausgabe mal genau.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
Dann als Anhang an eine PN. Und hör endlich auf hier öffentlich weghen ICQ zu nerven, ich hatte meine Gründe. Punkt.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
Häng es mal im Posting an.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
Machst du eventeull sowas wie:
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:
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
Readln liest nur eine Zeile aus einer Textdatei. Die Borländer haben sich dabei schon was gedacht die Prozedur readline zu nennen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
Geht:
procedure TForm1.Button1Click(Sender: TObject);
var
F: Textfile;
s, NewString: String;
begin
AssignFile(F, 'c:\boot.ini');
{$I-}
Reset(F);
Forum: Sonstige Fragen zu Delphi
Delphi
by Luckie,
28. Feb 2004
Wird NewString auch irgendwo verwendet? Ansonsten optimiert dir Delphi weg.