String prüfen durch eine if anweisung und dann kopieren

[Alterauge]

Hallo,
erstmal viellen Dank, für Deine Aufmerksamkeit!

Ich bekomme den Text, so geliefert bzw.übermittelt!
Der Text befindet sich dann in einem Memo!

Als Beispiel:
Feuerwehr Einsatz*Testhausen*Testdorfstraße66*Feuer1*bei Müller*123456789 // hier mit Name (Müller)*
oder es ist auch möglich!
Feuerwehr Einsatz*Testhausen*Testdorfstraße66*Feuer1**123456 789 // hier ohne Namen **

So die Einsatznummer hat immer zehn Zeichen! Aber ich vermute, dass hin und wieder mal, hinter der Einsatznummer sich leer Zeichen befinden!

Das zweite Problem ist der Trenner mit '*'! Dieser Trenner kommt öfters vor!
Beim Trenner '**' würde es gehen!



Danke!

[Helmi]

wie wärs damit:

Delphi-Quellcode:

var
  SL: TStringList;
begin
  SL := TStringList.Create;

  try
    SL.StrictDelimiter := true;
    SL.Delimiter       := '*';

    SL.DelimitedText := 'Feuerwehr Einsatz*Testhausen*Testdorfstraße66*Feuer1*bei Müller*123456789'; // hier mit Name (Müller)*

    //geht auch ohne Namen
    //Feuerwehr Einsatz*Testhausen*Testdorfstraße66*Feuer1**123456 789 // hier ohne Namen **

    ShowMessage(SL.Strings[Pred(SL.Count)]);
  finally
    FreeAndNil(SL);
  end;
end;

In der SL stehen dann die einzelnen Bereiche je als eigene Zeile und die letzte Zeile ist die Nummer

[Bjoerk]

Delphi-Quellcode:

  S:= 
  D:= 
  if (s = MyTable2.FieldByName('Meldung').Text) and (d = '**') then
  begin
    ShowMessage(S + sLineBreak + D);
    ..