function IsColor8(S: String):Boolean;
* Result:=(C=0) and (D<=$FFFFFFFF);
D<=$FFFFFFFF liefert immer True, da es derzeit den gesamten Wertebereich von Cardinal abdeckt ...
OK im (noch nicht existierenden) 64-Bit-Delphi würde diese Prüfung das gewünschte Ergebnis liefern,
aber da könnte man statt Cardinal auch LongWord verwenden und die Überlaufprüfung aktivieren, dann klappts überall
function CheckInvalidChars(const FilePath: String): String;
gibt es einen Grund, warum !, §, $, %, & und # verboten sind?
nja egal.
für's Aufteilen Dateiname/Pfad, könnte man eventuell auf die vorhandenen Funktionen zugreifen
ExtractFileName und ExtractFileDir ... muß man aber nicht
function RGBToColor(R, G, B : Byte): TColor;
* Result := B Shl 16 or G Shl 8 or R;
das hier klappt nicht ganz, denn da die Parameter/Variablen nur Bytes sind, würde bei SHL alles aus deren Wertebereich rausgeschoben und wäre weg.
Result := Integer(B) Shl 16 or Integer(G) Shl 8 or R;
function IntToBin(n : Integer): String;
gut, nicht ganz optimal, da jedes Zeichen einzeln an das Ergebnis angehängt und somit ständig alles hin- und herkopiert wird, aber es funktioniert immerhin.
und die .dcu mußt du nicht unbedingt mit anhängen.
- ich vermute mal die ist von deinem D7, also könnte diese maximal nur mit einem D7 nutzen (sind compilerabhängig)
- und dann ist die .pas ja da, welche ma nutzen kann
