Moin Jority,
dann möchte ich fast mal annehmen, dass Du eine
Unicode Datei vorliegen hast.
Zum einlesen wäre dann ein FileStream geeignet:
Delphi-Quellcode:
var
fsWork : TFileStream;
// Weitere Variablen wie oben
begin
fsWork := TFileStream.Create('c:\temp\test.txt',fmOpenRead);
try
sBuf := StringOfChar(#00,fsWork.Size);
fsWork.Read(sBuf[1],fsWork.Size);
finally
FreeAndNil(fsWork);
end;
// Verarbeitung wie oben beschrieben
fsWork := TFileStream.Create('c:\temp\testneu.txt',fmCreate);
try
fsWork.Write(sBuf[1],iOUT-1);
finally
FreeAndNil(fsWork);
end;
end;
BTW: Vielleicht wäre es noch ganz sinnvoll #09 (Tabulator) mit in die gültigen Zeichen aufzunehmen.