Suche in TStringlist

[malabarista]

In TStringlist gibt es die Suchfunktionen FIND und INDEXOF.
Die arbeiten aber nur auf exakte Gleichheit. Ich benötige dagegen eine Suche nach Stringanfängen.

Beispiel:
string1:='abcdefgh'';
string2:='ab12345';
string3:='cc8899';

Und nun möchte ich alle Strings finden, die mit 'ab' beginnen.

Wie geht das ?

[Linkat]

Hallo malabarista,

die Funktion, die du suchst heist 'pos' für Postion. In deinem Fall kannst du schreiben:

Code: Alles auswählen

 
s:='ab';
if pos(s,string1)=1 then writeln(s,' steht am Anfang von ',string1)
                    else writeln(s,' steht nicht am Anfang von ' ,string1);)
 

Du musst natürlich jedes Element deiner Stringliste durchgehen und prüfen!

Gruß, Linkat

[Mathias]

Mit fpc 3.1 hat es dafür noch einen neue Function gegeben,

Code: Alles auswählen

const
  String1 = '1234567890';
var
  s: string;
begin
  s := '12';
 
  if String1.IndexOf(s) = 0 then begin
    writeln(s, ' steht am Anfang von ', string1);
  end else begin
    writeln(s, ' steht nicht am Anfang von ', string1);
  end;
 
end;  

[malabarista]

ok.Dankeschön.

Dann werde ich eine binäre Suche nach diesen Teilstrings machen.