Hallo, mkinzler, nett dass Du bei mir reinsiehst.
Ähm, das ist ja das Problem.
Tstream.read und write habe ich mir schon im Tutorial der
dsdt.de angesehen.
Wie setzte ich denn den Code oben um? Wäre ja nicht nur für mich interessant.
Also ich habe mal jetz so angefangen. Natürlich könnte ich wohl eine Fehlermeldung zurückgeben,
wenn der Stream nicht korrekt geschreiben wurde.
Delphi-Quellcode:
Procedure StringToFile(VAR FileName, Str: string);
var
fs: TFileStream;
Len: Integer;
begin
fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
Len := fs.Size;
SetLength(Result, Len);
if Len > 0 then
fs.WriteBuffer(Result[1], Len);
finally
fs.Free;
end;
end;
So funktioniert es ja nicht. Das Result ist ein Schmarren, weil ich ja eine Procedure habe.
Magst Du den Code mal verbessern?
