Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   globale function (https://www.delphipraxis.net/184460-globale-function.html)

strom 28. Mär 2015 13:04

globale function
 
hallo,

wie muss eine Funktion aussehen, die bestimmte Merkmale haben sollte!

a.) String ausführen (Host)
b.) Integer ausführen (Port)


Was muss in der Funktion stehen?

Delphi-Quellcode:
 function Senden(....................);
 var
 s: String
 i: Integer;
begin
 s := '192.168.0.62';
 i := 5555;
 ClientSocket1.Address := s;
 ClientSocket1.Port := i;
 ClientSocket1.Active := true;
end;
Wie führe ich diese dann im Button aus?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin

end;

jfheins 28. Mär 2015 13:14

AW: globale function
 
Könntest du das nochmal präzisieren? Momentan müsste ich leider nahezu völlig raten, was dein Problem ist. Ein Anfang:

Was meinst du mit "Integer ausführen"? Nehmen wir mal die Zahl 48927. Was ist das Ergebnis, wenn man diese Zahl ausführt?

Zacherl 28. Mär 2015 13:39

AW: globale function
 
Sorry strom, aber ganz ehrlich: Geh Grundlagen lernen! Du kennst nichtmal die Syntax und willst direkt erstmal ne Client-Server Anwendung schreiben :roll: Bei ein, zwei Threads kann man ja noch drüber hinwegsehen, aber du scheinst in dieser Hinsicht einfach null Eigeninitiative zu zeigen.

Sir Rufo 28. Mär 2015 15:33

AW: globale function
 
Es hilft, wenn man sich überlegt, wie das im realen Leben abläuft:
Zitat:

Ruf den da an und sag dem was.
Öh, anrufen ja, aber ich brauche schon die Telefonnummer und das was ich sagen soll.

Aha, wir benötigen 2 Parameter Rufnummer und den Text. Somit würde unsere Funktion so aussehen:
Delphi-Quellcode:
procedure TellViaPhone( phoneNumber, messageText : string );
begin
  Phone.Dial( phoneNumber );
  Phone.Talk( messageText );
end;
Und wie ruft man das auf?
Delphi-Quellcode:
procedure TFormX.RufAnButtonClick( Sender : TObject );
begin
  TellViaPhone( '0900665665', 'Ich sollte anrufen und wegen der Peitschen fragen' );
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:49 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz