POS findet was das ich nicht verstehe... ?

[v2afrank]

Und ich habe gelernt dass man nicht jede Delphi Funktion bei Google eingeben kann. Da ich PosEX auch noch nie benutzt habe, habe ich da mal bei Google nach gesucht.(Allerdings ohne das Schlagwort Delphi). Hat mit Programmierung nicht mehr viel zu tun

[himitsu]

Gib es mal da ein.
http://www.delphipraxis.net/dp_reference.php

[sx2008]

Also ganz allgemein sollte man Funktionen gegenüber Prozeduren mit einem Var-Parameter bevorzugen.
Perlsau hat das im Beitrag #4 schon ganz richtig gemacht. (man sollte aber auch den "Nachrichtentext" als weiteren Parameter übergeben)

Insbesondere Funktionen die ausschlieslich von ihren Eingangsparameter(n) abhängen und keine Nebeneffekte haben (sog. pure functions) machen das Testen des Codes zum Kinderspiel.

[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)

[himitsu]

richtig...

Man kann es auch wie bei StrToInt, TryStrToInt und StrToIntDef machen?

Oder ParamStr, was beim Fehlen einen Leerstring liefert.

[Sir Rufo]

Zitat von himitsu:

richtig...

Man kann es auch wie bei StrToInt, TryStrToInt und StrToIntDef machen?

Oder ParamStr, was beim Fehlen einen Leerstring liefert.

Die Basis ist aber immer TryStrToInt

Delphi-Quellcode:

function TryFoo( const AInput : TSomething; out AOutput : TDifferent ) : Boolean;
begin
  ...
end;

function Foo( const AInput : TSomething ) : TDifferent;
begin
  if not TryFoo( AInput, Result ) then
    raise EFooException.Create( 'Please try something different' );
end;

function FooDefault( const AInput, ADefault : TSomething ) : TDifferent;
begin
  if not TryFoo( AInput, Result ) then
    Result := ADefault;
end;

[himitsu]

Zitat von v2afrank:

Und ich habe gelernt dass man nicht jede Delphi Funktion bei Google eingeben kann. Da ich PosEX auch noch nie benutzt habe, habe ich da mal bei Google nach gesucht.(Allerdings ohne das Schlagwort Delphi). Hat mit Programmierung nicht mehr viel zu tun

Es kommt drauf an ... hatte grade mal versuchsweise das SafeSearch wieder aktiviert, aber dann entgehen einem die Artikel von goFeminin und deren coole musikalische Werbung im Hintergrund.

[Garfield]

Zitat von Sir Rufo:

Die Basis ist aber immer TryStrToInt

Ich dachte val. Habe das auch genommen, weil es kein StrToUInt gibt.

[himitsu]

Wenn du mehr brauchst, dann StrToInt64. (andersrum ist die 64 einfach nur überladen, da dort automatisch entschieden wird, anhand des Parameters)

[Garfield]

Könnte ich machen. Aber die Werte in den Strings werden in LowPart und HighPart eines TULargeInteger eingetragen.