Reg Exp in Pos()

[himitsu]

Ansonsten

Delphi-Quellcode:

S := deinString;

i := 0;
For i2 := 1 to Length(S) - 3 do
  If (S[i2] = ' ') and (S[i2 + 1] in ['0'..'9']) and (S[i2 + 2] in ['0'..'9']) Then Begin
    i := i2;
    Break;
  End;

diePosition := i;

Damit findet man z.B. eine zweistellige Zahl mit dem Lehrzeichen davor ... kannst du ja entsprechend anpassen ._.


Oder etwa so:

Delphi-Quellcode:

S := Memo1.Lines.Text;
S2 := ListBox2.items[ccc] + ' **' + FormatDateTime('hh', time);
Position := 0;
For i := 1 to Length(S) - Length(S2) do Begin
  For i2 := 1 to Length(S2) do
    If (S[i] <> S2[i]) and (S2[i] <> '*') Then GoTo Ende;
  Position := i;
  Break;
  Ende:
End;

I hoffe ma es geht so ._. (für das * kannst/mußt du halt nur ein Zeichen nehmen, welches nicht in S2 vorkommt)