Forum: Sonstige Fragen zu Delphi
Delphi
by Satty67,
27. Apr 2009
Selbst gesehen hab' ich noch (BoolTrue/FalseString kann auch JA/NEIN, EIN/AUS sein)
if UpperCase(PChar(aPtr)) = UpperCase(BoolTrueString) then Result := True else Result := False;
// wird zu
Result := UpperCase(PChar(aPtr)) = UpperCase(BoolTrueString);
Was (in D5?) nicht geht ist
Str in
aber den Weg über downto und Delete übernehme ich.
Die Zeilen mit except habe ich durch ..To..Def...
Forum: Sonstige Fragen zu Delphi
Delphi
by Satty67,
26. Apr 2009
StrToIntDef/StrToInt64Def ist das einzige, StrToFloatDef hab' ich selber schon mal gebastelt... das war's dann mit sicherer TypUmwandlung.
Aber denke mit EConvertError und EInvalidOp hat man das meiste abgedeckt, wenn's trotzdem noch knallt hat man wohl den Pointer versemmelt? Denke die zu erwartenden Fehler müssen erstmal reichen. Später erweitern ist aber drin.
Delphi 2009 Trial hatte ich...
Forum: Sonstige Fragen zu Delphi
Delphi
by Satty67,
26. Apr 2009
Die aktuelle Anwendung hat zwar immer einen untypisierten Pointer, aber mal will den Code ja woanders wieder verwenden. Das ändere ich.
TryStrTo... kennt Delphi 5 nicht, wobei ich mir die Funktion auch selber basteln könnte. Kann man immer gebrauchen.
Den Rest schaue ich mir in Ruhe an.
Danke schonmal.
€:
// StrToCurr hast später ja schon genutzt, warum dann hier Format-%m ?
Forum: Sonstige Fragen zu Delphi
Delphi
by Satty67,
26. Apr 2009
Hallo,
ich benötige eine Typ-Konvertierung in alle Richtungen. Dabei soll jede Umwandlung ein Ergebnis liefern, also z.B. auch Boolean nach TDateTime (Hier gibt True Now zurück).
Die Daten liegen in einem SpeicherPuffer, stehen als Quelle somit als Cast(Pointer) bereit. Bei der Rückgabe benötige ich einmal einen Weg, wieder in den Puffer zu schreiben (Puffergröße ist immer ausreichend), als...