Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Mär 2009
nee, es ist per Standard so, aber er will es nicht so :angel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Mär 2009
in D7 sind Find und IndexOf auch als Virtual ... falls es das bei dir ebenfalls ist, dann am Besten wohl Finde überschreiben
public
function Find(const S: string; var Index: Integer): Boolean; override;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Mär 2009
also bei mir geht das (selbst mit der "falschen" Sichbarkeit > Private) :gruebel:
Uses Classes;
Type
TMyStringsList = Class(TStringList)
Protected
Function CompareStrings(Const S1, S2: String): Integer; Override;
End;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
7. Mär 2009
IndexOf verwentet intern CompareStrings und diese Funktion nutzt AnsiCompareText ... also CaseInsensitive.
Leite die Klasse (TStringList?) ab und überschreib CompareStrings (dieses ist virtual) mit einer eigenen Funktion.
function {TStrings}.CompareStrings(const S1, S2: string): Integer;
begin
Result := AnsiCompareStr(S1, S2);
end;