Tabelle durchsuchen ohne Angabe eines Feldnamens

[Bummi]

@Stevie
Ja der Befehl schreibt sich kürzer....
ich hatte mich vor längerem trotzdem für meine Version entschieden.

Delphi-Quellcode:

var
 tc:Cardinal;
 i:Integer;
begin
    tc := GetTickCount;
    for I := 0 to 10000000 do
        begin
          ContainsStr('Ein kleiner Text mit wenig Inhalt','TEXT');
        end;
    Memo2.Lines.Add(IntToStr(GetTickCount - tc));

    tc := GetTickCount;
    for I := 0 to 10000000 do
        begin
          Pos(UPPERCASE('TEXT'),UPPERCASE('Ein kleiner Text mit wenig Inhalt'));
        end;
    Memo2.Lines.Add(IntToStr(GetTickCount - tc));

end;

4727
3916