Delphi-Quellcode:
procedure TFormMain.DropFileTarget1Drop(Sender: TObject;
ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
var testfs : TFilestream;
begin
testfs := TFileStream.Create ('c:\temp\'+FTargetDataFormat.FileName, fmCreate);
testfs.Position := testfs.Size;
testfs.Write(PChar(FTargetDataFormat.Contents)^, length(FTargetDataFormat.Contents));
testfs.Free;
end;
Kleiner Forums Tipp noch: vor dem Einfügen von Quellcode mal den Delphi Helm oberhalb des Memo anklicken
und dann den Code zwischen die eingefügten Tags einfügen. Dann wird er sauber formatiert angezeigt...