Textteile suchen

[Dani]

Hi. Ich nehme an, dass du weißt, was ein String ist.
Mit der Funktion Pos kannst du den "Index" herausfinden, an welchem sich dein Suchstring befindet.

Beispiel:

Code:

String: "Hallo Du"
Index:   12345678

Suchstring: "Du"
Index:       12

Pos('Du', 'Hallo Du') = 7

Mit der Funktion Length kannst du die Länge des Suchstrings herausfinden. Schließlich kannst du mit der Funktion Copy ein Teilstück aus einem String herauskopieren.

Copy('Hallo Du', 7, Length('Du')) = 'Du' Alles klar?

Falls nicht, hilft vielleicht dieses Beispiel.
http://delta-works.de/delphi-string.png

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var Text: String;
    Suchtext: String;
    Suchindex: Integer;
begin
  Text := 'Das.ist.ein.String.Beispiel';
  Suchtext := 'String';
  Suchindex := Pos(Suchtext, Text);
  Caption := Copy(Text, 1, Suchindex - 1) +
             Copy(Text, Suchindex + Length(Suchtext), MaxInt);
end;