Hallo,
ohne reguläre Ausdrücke könnte man so prüfen:
Delphi-Quellcode:
function CLSIDFromString (psz: PWideChar;
out clsid: TGUID): HResult;
stdcall;
external '
ole32.dll'
name '
CLSIDFromString';
function IsValidGUID (
const aString: WideString): Boolean;
var
Dummy : TGUID;
begin
Result := Succeeded(CLSIDFromString(PWideChar(aString), Dummy));
end;
Gruß Hawkeye