Forum: Object-Pascal / Delphi-Language
by t2000,
19. Mär 2020
Ich fand die rekursive Funktion einfacher.
Nahc meiner ersten Analyse, kann eigentlich keine Endlosschleife passieren. Und auch Speicherlecks habe ich nicht entdecken können. Hast du mal ein Beispiel dafür?
Forum: Object-Pascal / Delphi-Language
by t2000,
18. Mär 2020
Die Alternative im except Teil wäre ein Delete-Befehl:
except
begin
//Result := DirtyStringToGuid( copy( DirtyString, p1+1, 9999));
system.Delete( DirtyString, 1, p1);
Result := DirtyStringToGuid( DirtyString);
end;
end;
Forum: Object-Pascal / Delphi-Language
by t2000,
18. Mär 2020
Ups, hatte sich ein Fehler beim kopieren eingeschlichen. Hatte noch den Delete-Befehl drin, anstatt den copy-Befehl.
Habe es korrigiert.
Forum: Object-Pascal / Delphi-Language
by t2000,
14. Mär 2020
Jetzt mal eine (hoffentlich) ganz einfache Frage.
Geht das auch einfacher bzw. eleganter?
Habe das an einigen Stellen im Programm
var
MyJSONData : TJSONObject;
LServiceID : TGuid;
begin
// ServiceID aus Parameter lesen