|
Registriert seit: 10. Mär 2004
1.134 Beiträge
Lazarus
|
Re: Dateienlesen und schreiben mit readln und writeln
3. Apr 2004, 09:45
Delphi-Quellcode:
var F,G:textfile;
s:string;
assignFile(F,'Dat1.txt');
reset(F);
assignFile(G,'Dat2.txt');
rewtite(G);
while not eof(F) do
begin
readln(F,s);
if Pos(bind,S) <> 1 then writeln(G,S);
end;
Ungetestet, probier'S mal.
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!
|