Startseite   |  Site map   |  A-Z artikel   |  Artikel einreichen   |   Kontakt   |  
   
  •  
    Biologie
    Themen der Chemie
    Deutsch online artikel
    Englisch / Englische
    Franzosisch
    Geographie
    Geschichte
    Informatik
    Kunst
    Mathematik / Studium
    Musik
    Philosophie
    Physik
    Recht
    Sport
    Wirtschaft & Technik



    Biographie

    Impressum

informatik artikel (Interpretation und charakterisierung)

Dialogfenster


1. Java
2. Viren



{******************************************************************************}
{ Verbinden Dialog }
{******************************************************************************}

unit verbinden;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls;


type
TVerbindenDlg = class(TForm)

VerbindenBtn: TButton;
CancelBtn: TButton;

DlgBevel: TBevel;
AddrEdit: TEdit;

PortEdit: TEdit;
AddrLabel: TLabel;

PortLabel: TLabel;
NickLabel: TLabel;

NickEdit: TEdit;
procedure CheckValues;
procedure PortEditChange(Sender: TObject);
procedure AddrEditChange(Sender: TObject);
procedure NickEditChange(Sender: TObject);

end;

var

VerbindenDlg: TVerbindenDlg;


ClientPort : Integer;
ClientAddr,

ClientNick : String;


implementation


{$R *.DFM}

procedure TVerbindenDlg.PortEditChange(Sender: TObject);
begin
CheckValues;

end;

procedure TVerbindenDlg.AddrEditChange(Sender: TObject);
begin
CheckValues;

end;

procedure TVerbindenDlg.NickEditChange(Sender: TObject);
begin
CheckValues;

end;

{Eingaben überprüfen}

procedure TVerbindenDlg.CheckValues;
var

Buf,
Buf2 : String;

Cnt,
Code,

IChk,
CPos : Integer;
begin
VerbindenBtn.Enabled:=True;

{PortCheck}

Val(PortEdit.Text,ClientPort,Code);
if (Code0)or(ClientPort65535) then

VerbindenBtn.Enabled:=False;


{AddrCheck}
Buf:=AddrEdit.Text+\'.\';

for Cnt:=1 to 4 do
begin

CPos:=Pos(\'.\',Buf);
if CPos=0 then Break;

Buf2:=Copy(Buf,1,CPos-1);
Val(Buf2,IChk,Code);

if (Code0)or(IChk255) then Break;
Delete(Buf,1,CPos);
if Buf=\'\' then Break; end; if (Cnt

 
 




Datenschutz

Top Themen / Analyse
Probleme und Lösungsansätze
Protokolle
Die wichtigsten Hayes Befehle
Eigene Meinung und Schluss
Transputer
PNG (Portable Network Graphic)
Default-Parameter
Leistungsbestimmende Faktoren
Ausgabegeräte
Internet in Students' Lives





Datenschutz

Zum selben thema
Netzwerk
Software
Entwicklung
Windows
Programm
Unix
Games
Sicherheit
Disk
Technologie
Bildung
Mp3
Cd
Suche
Grafik
Zahlung
Html
Internet
Hardware
Cpu
Firewall
Speicher
Mail
Banking
Video
Hacker
Design
Sprache
Dvd
Drucker
Elektronisches
Geschichte
Fehler
Website
Linux
Computer
A-Z informatik artikel:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z #

Copyright © 2008 - : ARTIKEL32 | Alle rechte vorbehalten.
Vervielfältigung im Ganzen oder teilweise das Material auf dieser Website gegen das Urheberrecht und wird bestraft, nach dem Gesetz.