shima, das stimmt nicht bzw. nur bedingt. Ich habe mich auch gewundert, aber ein Array-Zugriff ist wirklich sehr schnell:
Beweis: (Form, Memo, Button):
Delphi-Quellcode:
Procedure TForm1.btindexClick(Sender: TObject);
Var
a: Array[0..1000000] Of Byte;
t, r, i: Cardinal;
p: ^byte;
Begin
t := GetTickCount;
For r := 1 To 1000 Do
For i := 0 To High(a) Do
a[i] := 1;
Memo.Lines.add('Index : ' + IntToStr(GetTickCount - t));
t := GetTickCount;
For r := 1 To 1000 Do Begin
p := @a;
For i := 0 To High(a) Do Begin
p^ := 1;
inc(p);
End
End;
Memo.Lines.add('Ptr : ' + IntToStr(GetTickCount - t));
End;
Ergibt bei mir
Zitat von
Mein LCD:
Index : 1250
Ptr : 1985
Ich vermute, wenn sich der Assembler-Guru Sirius nochmal reinkniet, dann bekommt er das hin. Seine Assembler-Routine scheint wirklich verdammt schnell zu sein. Wenn sie denn funktioniert...
Wie gesagt, bei kleinen Strings klappt das (es ist vermutlich nur ne Kleinigkeit...)
Zitat von
Tyrael Y.:
Zitat von
sirius:
Was habt ihr denn? Ein Zeichen klappt doch prima, oder
Naja laut dem Code den ich zitiert habe kann es ja nicht laufen, da auf den zweiten Char im Substring zugegriffen wird.
Selbst wenn es funktionieren würde: Bei einem Zeichen ist die Sprungtabelle für das Zeichen = 1 und dann wird das zu langsam.
Im Anhang mal eine
Unit die den FastCode-Gewinner, mein QSSearch (na ja, von Daniel Sunday und einer Prise Alz) und dem naiven Durchraser bei einbuchstabigem Suchstring. Hups. auch das kann man optimieren, das ist mir aber zu blöd.