In einen String suchen

[alexpahl]

Hallo,
wie kann ich feststellen ob in einen Stríng eine Bestimmte Zahlenkette vorhanden ist. Die Zahlenkette kann auch in der mitte des Strings sein.

Alexander

[Thomas Stutz]

Mit der Pos Funktion:

function Pos(Substr: string; S: string): Integer;

[alexpahl]

Wie mache ich das wenn ich einen String in einen Memo suche,
ich will herausfinden in was für eine Zeile der String ist.

Alexander

[alexpahl]

Das hier habe ich noch gefunden
if (Pos('xxx', Memo1.Lines[z]) = 1)then xxx

Das geht doch nur wenn der gesuchte String am Anfang Steht ?
Wie mache ich das wenn der String irgendwo im Memo steht.

Alexander

[Thomas Stutz]

Mit EM_LINEFROMCHAR kannst du die Zeile im Memo bestimmen.
In eine Funktion verpackt, sieht's dann etwa so aus:


[font  size=2 face="Courier New" color="#000000"]function GetLineOfString(Substr: string; Memo: TMemo): Integer;
begin
  Result := Pos(Substr, Memo.Text);
  if Result <> 0 then
    Result := Memo.Perform(EM_LINEFROMCHAR, Result, 0)
  else
    Result := -1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(GetLineOfString('test', Memo1)));
end;
[/font]

[alexpahl]

Danke für die Hilfe.

Kann ich bitte noch ein Beispiel für Pos bekommen wenn ich einen Einzelnen String durchsuche. Die Gesuchte Zahl kann irgendwo im String stehen

Danke

Alexander

[Rainer]

Also ich weiß jetzt nicht genau was du noch möchtest (Memo.Text ist auch nen String).
z.B. schauen ob der Buchstabe 'd' im Edit1.Text vorkommt, falls ja die Position anzeigen.

[font size=2 face="Courier New"][font color="#000000"]procedure TForm1.Button1Click(Sender: TObject);
begin
  if Pos('d', Edit1.Text) > 0 then
  begin
    Label1.Caption := 'String vorhanden an Position '+IntToStr(Pos('d', Edit1.Text));
  end
  else
  begin
    Label1.Caption := 'String nicht vorhanden';
  end;
end;
[/font][/font]

[alexpahl]

Ich habe nur noch eine Frage

Was bedeutet die "0" bei  "if Pos('d', Edit1.Text) ] 0 then"

Danke

Alexander

[Rainer]

Steht alles in der Hilfe.

Pos (Funktion)

Die Funktion Pos gibt den Indexwert des ersten Zeichens innerhalb des angegebenen Teil-Strings zurück, der in einem String vorkommt.

Unit

System

Kategorie

String-Verarbeitung

function Pos(Substr: string; S: string): Integer;

Beschreibung

Pos sucht in dem String S nach dem Teil-String Substr. Die Parameter Substr und S sind String-Ausdrücke.

Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Die Groß/Kleinschreibung wird von Pos nicht berücksichtigt. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.