Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by frieder2008,
8. Mär 2009
Hi Satty67,
danke für die Funktion, hast nur den Count überstrapaziert (..-1),
function IndexOf_CS(aStrings: TStrings; aToken : String):Integer;
var
i : Integer;
begin
Result := -1;
for i := 0 to aStrings.Count -1 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by frieder2008,
7. Mär 2009
Hm, aber in D5 sind die Funktionen so organisiert: Stringlist -> indexof -> Find -> AnsiCompareText -> und dort (Sysutils):
function AnsiSameStr(const S1, S2: string): Boolean;
begin
Result := CompareString(LOCALE_USER_DEFAULT, 0, PChar(S1), Length(S1),
PChar(S2), Length(S2)) = 2;
end;
Wo könnte ich denn da via Überschreiben eingreifen?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by frieder2008,
7. Mär 2009
Uff, sorry, da komme ich als relativer Anfänger nicht mit, weil noch nie Klassen abgeleitet, geschweige denn Methoden überschrieben. Ich habe versucht, mich dazu ein bisschen einzulesen, aber ich verstehe nicht, wie ich die Funktion (in dem Fall comparetext) überschreiben soll.
type
TFstringlist = class(Tstringlist);
private
function CompareStrings(const S1, S2: string): Integer;...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by frieder2008,
7. Mär 2009
danke; aber Luckies Vorschlag kapier' ich nicht: Uppercase konvertiert mir doch beides in Großbuchstaben, sprich, es ist dann erst recht case insensitive, oder?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by frieder2008,
7. Mär 2009
Hallo Leute,
folgende zwei 'Probleme' habe ich, wo ich gerade hänge bzw. wo mein Delphi am Ende ist:
1) Ich vergleiche zwei Stringlisten (mit Tokens) miteinander und zähle die verschiedenen Tokens darin. Das mache ich bisher so (und klappt wunderbar):
for iii:=0 to tokenlist.Count -1 do
begin
occurindex:= tokenlistges.indexof(tokenlist);