So, Problem gelöst. Hätt ich eigentlich früher drauf kommen können
Ich hatte anscheinenend vergessen, dass die Standardein- und ausgabe eigentlich (zumindest in Pascal) nicht groß was anderes wie eine Textdatei ist. Und da gibts ja neben den schönen Read und Write-Funktionen natürlich auch das eof, und damit hats dann geklappt.
So sieht das ganze aus. Wenn einer also ein Konsolenprogramm braucht, mit dem die Eingabe in die Zwischenablage kopiert werden soll, einfach folgenden Source kompilieren und fertig:
Delphi-Quellcode:
program Cmd2Clip;
{$APPTYPE CONSOLE}
uses
clipbrd;
var
s, fulls: String;
Clipboard: TClipboard;
begin
fulls := '';
s := '';
while not eof do
begin
ReadLn(s);
fulls := fulls + #13#10 + s;
end;
Clipboard := TClipBoard.Create;
Clipboard.SetTextBuf(@fulls[1]);
Clipboard.Free;
end.
Edit: Acch Schmarrn, wenn ich aus ner repeat-Schleife eine while-Schleife mache, dann könnt ich den Code doch auch etwas ändern
