Stelle aus Text herauskopieren?

[Fridolin Walther]

So sähe das dann aus:

Delphi-Quellcode:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function GetRandomString : string;
var
  i : Integer;
begin
  for i := 0 to 20 - 1 do
    Result := Result + Chr(Random(26) + Ord('A'));
end;

var
  RandomString : string;
  PartitialString : string;
begin
  Randomize;
  RandomString := Format('%s - %s (%s)', [GetRandomString, GetRandomString, GetRandomString]);
  writeln(RandomString);
  PartitialString := Trim(Copy(RandomString, Pos('-', RandomString) + 1, Pos('(', RandomString) - Pos('-', RandomString) - 1));
  writeln(PartitialString);
  readln;
end.