String prüfen durch eine if anweisung und dann kopieren

[Helmi]

Zitat von 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

Ich möcht noch eine Variante zeigen:

Delphi-Quellcode:

var
  i: Integer;
  S: String;

begin
  S := 'Feuerwehr Einsatz*Testhausen*Testdorfstraße66*Feuer1**123456 789';

  //oder:
  //S := 'Feuerwehr Einsatz*Testhausen*Testdorfstraße66*Feuer1*bei Müller*123456789';

  i := LastDelimiter('*', S);

  ShowMessage(copy(S, i + 1, length(S)));
end;

Die Idee mit LastDelimiter hab ich aus der SysUtils-Function ExtractFilePath