Zitat von
Hawkeye219:
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
Die
GUID (wenn es denn eine sein sollte) stammt nicht aus einem
COM-Interface, sondern wurde (wie oben angegeben) mit SysUtils.GUIDToString(SysUtils.CreateGUID) erzeugt.