String aus String zwischen 2 Zeichen auslesen und entfernen

[SirThornberry]

Delphi-Quellcode:

function splitOutIndex(Source: String; Delimiter: String; Index: Integer): String;
var count, number: Integer;
    giveback: String;
begin
 count := 1;
 number := 0;
 giveback := '';
 while (count <= length(Source)) and (number <= index) do
 begin
  if copy(Source, count, length(Delimiter)) = Delimiter then
  begin
   number := number + 1;
   count := count + length(Delimiter);
  end else begin
   if number = Index then giveback := giveback + Source[count];
   count := count + 1;
  end;
 end;
 result := giveback;
end;

procedure TForm1.irgendwas;
var msg, username: String;
begin
  msg := '$Peter$Hallo du';
  username := splitOutIndex(msg,'$',1);
  msg := splitOutIndex(msg,'$',2);
end;