1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

// Datenpaket eingetroffen; lesen und bearbeiten
procedure TForm1.UdpSockUtil1Receive(Sender: TObject);
var
vonIP: in_addr;
Data: TStringList; // zum Abspalten der Datenpakete
Current: TCmdToken; // aktuelles Kommando
begin
Data := TStringList.Create;
try
Data.Text := UdpSockUtil1.ReceiveText(vonIP); // Daten lesen
if (Data.Count > 1) then // min. 2 Datenpakete müssen da sein
if (Data.Strings[0] = APP_ID) then begin // von einem NarsesUdpLanChat?
Current := GetCmdToken(UpperCase(Data.Strings[1])); // Befehl bestimmen
if (Data.Count >= (Syntax[Current].ArgCount +1)) then // reichen die Argumente?
Execute(Current,Data,vonIP); // ja, dann bearbeiten
end;
finally
Data.Free;
end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.UdpSockUtil1Receive(Sender: TObject);
var
  Msg: String;
  vonIP: in_addr; 
begin
  Msg := UdpSockUtil1.ReceiveText(vonIP);  // die Funktion ist ja in Narses Unit eingebaut und gibt mir das Empfangene als String zurück.
                                           //Aber ebenfalls hier die Frage - woher weis das Programm zu dem Zeitpunkt welchen 
                                           //Wert "vonIP" hat? So wie ich das sehe wurde er hier ja nirgends zugewiesen oder übergeben...
  ShowMessage(IntToStr(Length(Msg))+#13+Msg+#13+inet_ntoa(vonIP));
end;					

1:

vonIP :=  irgendetwas;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.ButtonXClick(Sender: TObject);

  function Test(var X: String): String;
  begin
    X := 'Ich war ein Funktionsparameter';
    Result := 'Ich war ein Funktionsergebnis';
  end;

var
  MyString, MyResult: String;
begin
  MyResult := Test(MyString);
  ShowMessage('MyResult = ' + MyResult + #13#10 + 'MyString = ' + MyString);
end;