Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#53

Re: In Datenbank(Edit1.Txt) suchen

  Alt 15. Jun 2009, 14:02
Es ist nicht nur "einfach für uns", sondern insgesamt einfacher, optimaler und vorallem übersichtlicher ...

Wenn es sein muß, können wir auch anders.
z.B.:
Delphi-Quellcode:
B := False;
For i := 1 to Length(S) - Length(C) + 1 do
  If Copy(AnsiLowerCase(S), i, Length(C)) = AnsiLowerCase(C) Then
    B := True;
If B Then ...

// oder

If Pos(AnsiLowerCase(C), AnsiLowerCase(S)) > 0 Then ...

// statt einfach nur

If AnsiContainsText(S, C) Then ...
Diese Codes machen im Prinzip alle das Gleiche und es gibt noch tausende andere und noch viel schlimmere Möglichkeiten.
$2B or not $2B
  Mit Zitat antworten Zitat