Ich hab mir hierzu halt so etwas gebastelt:
Delphi-Quellcode:
class function TSysUtils.CreateGuidList(const ACount: Integer): IWGList<TGUID>;
{$IF DEFINED(MSWINDOWS)}
var
i: Integer;
{$ENDIF}
begin
Result := TWGList<TGUID>.Create;
{$IF DEFINED(iOS) or DEFINED(ANDROID)}
while Result.Count < ACount do
begin
Sleep(5);
Result.AddIfNotExists(TGUID.NewGuid);
end;
{$ELSE}
for i := 0 to ACount-1 do
Result.Add(TGUID.NewGuid);
{$ENDIF}
end;
Muss jetzt nur jedes mal, wenn ich mehr als eine
GUID benötigte daran denken, über die Funktion mir die
GUID´s zu holen...
Ich gehe natürlich davon aus, dass irgendwann schon eine
GUID kommt die noch nicht generiert wurde. Sonst macht mir die while-Schleife irgendwann ein Problem.
