CR + LF

[Lehrling]

hi,

ich habe eine quelldatei die CR + LF enthält.

nun brauch ich aber diese datei ohne die CR + LF.

wie lässt sich das lösen?

DANKE !!!

lehrling

[Jens Schumann]

Hallo Lehrling,<br>Das wäre mein erster Ansatz:
<pre>
procedure TForm1.Kill_CR_LF(Filename: TFilename);
var
SourceStream : TFileStream;
DestStream : TFileStream;
NewFilename : TFilename;
aByte : Byte;
begin
Screen.Cursor:=crHourGlass;
NewFilename:=ExtractFilename(Filename);
Insert('_1',NewFilename,Pos('.',NewFilename));
NewFilename:=ExtractFilePath(Filename)+NewFilename ;
SourceStream:=TFileStream.Create(Filename,fmOpenRe ad);
DestStream:=TFileStream.Create(NewFilename,fmCreat e);
Try
While SourceStream.Position<SourceStream.Size do
begin
SourceStream.Read(aByte,1);
If (aByte<>$0D) and (aByte<>$0A) then
DestStream.Write(aByte,1);
end;
Finally
SourceStream.Free;
DestStream.Free;
Screen.Cursor:=crDefault;
end;
end;
</pre&gt