Ich habe es jetzt so gelöst vielen Dank
Delphi-Quellcode:
function FileToStringErsetze(const FileName: string;NeueZeichen: string;zuErsetzendeZeichen:integer): AnsiString;
var
fs: TFileStream;
Len,j: Integer;
temp: string;
begin
fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
Len := fs.Size;
SetLength(Result, Len);
if Len > 0 then
fs.ReadBuffer(Result[1], Len);
for j := 1 to Len do
if Ord(Result[j]) = zuErsetzendeZeichen then
Temp := Temp + NeueZeichen
else
Temp := Temp + Result[j];
finally
Result:=Temp;
fs.Free;
end;
end;
Aufruf über
Delphi-Quellcode:
SL := TStringList.create ;
SL.add(FileToStringErsetze(opendialog1.filename,'|',00));