Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Satty67,
8. Mär 2009
Ja, mein Dauerfehler, seit ich meine Arbeit mit Listen umgestellt hab'
Früher immer for i := 1 to Count do (und im Quelltext ). Das war natürlich Mist, aber jetzt vergesse ich das -1 in der Schleifendeklaration ständig ;)
***
Mal ein paar laienhafte Gedanken dazu:
Wenn Du sowieso primär Zeichenweise arbeitest, dann ist vielleicht TFileStream die bessere Variante. Stringlist bereitet...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Satty67,
7. Mär 2009
Ist eine Funktion dafür zu langsam?
function IndexOf_CS(aStrings: TStrings; aToken : String):Integer;
var
i : Integer;
begin
Result := -1;
for i := 0 to aStrings.Count do
if aStrings=aToken then begin
Result := i;