Startseite   |  Site map   |  A-Z artikel   |  Artikel einreichen   |   Kontakt   |  
  


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
indicator Probleme und Lösungsansätze
indicator Protokolle
indicator Die wichtigsten Hayes Befehle
indicator Eigene Meinung und Schluss
indicator Transputer
indicator PNG (Portable Network Graphic)
indicator Default-Parameter
indicator Leistungsbestimmende Faktoren
indicator Ausgabegeräte
indicator Internet in Students' Lives




Datenschutz
Zum selben thema
icon Netzwerk
icon Software
icon Entwicklung
icon Windows
icon Programm
icon Unix
icon Games
icon Sicherheit
icon Disk
icon Technologie
icon Bildung
icon Mp3
icon Cd
icon Suche
icon Grafik
icon Zahlung
icon Html
icon Internet
icon Hardware
icon Cpu
icon Firewall
icon Speicher
icon Mail
icon Banking
icon Video
icon Hacker
icon Design
icon Sprache
icon Dvd
icon Drucker
icon Elektronisches
icon Geschichte
icon Fehler
icon Website
icon Linux
icon 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.
dsolution