Textteile suchen

[djpaull]

Servus alle.

Ich sage von vorne rein, bin in Delphi noch ein Anfänger. Ich möchte folgendes. Einfaches Übungsprogramm: Auf einer TForm sind 2 Memofelder und ein Button. Beim OnButton1Click soll ein Textteil im Memofeld1 gesucht werden. Der Hacken - der Rest des Textes (OHNE den gefundenen Teil) soll ins Memofeld2 eingefügt werden.
Ich hab mir auch das hier angeschaut, werde aber nicht schlau daraus. Ein Beispiel-Code wäre mir sehr hilfreich.

[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;

[peschai]

Hallo,
besser wäre anstelle von "POS" das "AnsiPos" zu verwenden....