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)