POS findet was das ich nicht verstehe... ?

[Popov]

Wie wäre sowas:

Delphi-Quellcode:

procedure GetParameter2(Nachrichtentext: String; var Value : String; Suche : String);
begin
  with TStringList.Create do
  try
    Delimiter := ';';
    DelimitedText := Nachrichtentext;
    Value := Values[Suche];
  finally
    Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 s1, s2, s3 : String;
 Nachrichtentext: String;
begin
  Nachrichtentext := 'S;XY41380993;P=10000,1;M1=012324016940;M2=;F-18;';

  GetParameter2(Nachrichtentext, s1, 'M1');
  GetParameter2(Nachrichtentext, s2, 'M2');
  GetParameter2(Nachrichtentext, s3, 'W');

  Memo1.Lines.Append(s1);
  Memo1.Lines.Append(s2);
  Memo1.Lines.Append(s3);
end;

Etwas OOP lastig, aber es funktioniert.