"gelöst"clipboard als txt datei abspeichern

[marabu]

Moin Emil,

erst speicherst du den Text aus der Zwischenablage in eine StringList und dann verwirfst du diese StringList, ohne ihren Inhalt an die Datei anzuhängen?

Delphi-Quellcode:

procedure FileAppend(fn: TFileName; s: TStream);
var
  mode: Word;
begin
  if FileExists(fn)
    then mode := fmOpenWrite or fmShareDenyWrite
    else mode := fmCreate;
  with TFileStream.Create(fn, mode) do
  try
    Position := Size;
    CopyFrom(s, 0);
  finally
    Free;
  end;
end;

procedure TDemoForm.Button4Click(Sender: TObject);
var
  s: TStream;
begin
  with Clipboard do
  begin
    Open;
    try
      if Clipboard.HasFormat(CF_TEXT) then
      begin
        s := TStringStream.Create(AsText);
        try
          FileAppend(ExtractFilePath(ParamStr(0)), s);
        finally
          s.Free;
        end;
      end;
    finally
      Close;
    end;
  end;
end;

Freundliche Grüße