TGuid aus String erstellen

[t2000]

Hier meine Funktion dafür.
Kannn jetzt fast jeden String übergeben und er such die erste vorkommende Guid raus.

Delphi-Quellcode:

function DirtyStringToGuid( DirtyString: String): TGuid;
// sucht das erste "-" ab der 8. Position
// testet damit eine mögliche Guid
// falls nicht ok, dann lösche alle Zeichen bis zum '-' (einschl.)
// rekursiver Aufruf
// liefert bei Fehler eine Empty-Guid
var
  s: String;
  p1: Integer;
begin
  // 00000000-0000-0000-0000-000000000000
  Result := TGuid.Empty;
  if Length( DirtyString) < 36 then
    exit;
  p1 := Pos('-', DirtyString, 8);
  s := copy( DirtyString, p1-8, 36);
  try
    Result := StringToGuid( '{'+s+'}');  
  except  
    Result := DirtyStringToGuid( copy( DirtyString, p1+1, 9999)); 
  end;
end;