POS findet was das ich nicht verstehe... ?

[Sir Rufo]

Die richtige Implementierung wäre:

Delphi-Quellcode:

function GetParamValue( const AText, AParamName : string; out Value : string ) : Boolean;
begin
  ...
end;

und der Aufruf

Delphi-Quellcode:

var
  Nachricht : string;
  S1, S2 : string;

GetParamValue( Nachricht, 'M1', S1 );

if not GetParamValue( Nachricht, 'M2', S2 ) then
  raise Exception.Create( 'Parameter M2 wird zwingend benötigt!' );

Documentation by Design

• Alle benötigten Informationen werden übergeben (keine magischen Daten von irgendwo)
• AText und AParamName werden durch den Aufruf nicht verändert const
• Value wird für die Ermittlung nicht benötigt und gibt nur etwas zurück out
• Wird ein Wert zwingend benötigt, so muss nicht Value überprüft werden, sondern einfach nur der Result des Aufrufs (kompakter und lesbarer)