Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Вниз

Pomogite nachinajushemu   Найти похожие ветки 

← →
Treiber   (2002-10-12 16:06) [0]

Objasnite posgalusta chto ja delaju ne tak. thx.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;

type
TForm1 = class(TForm)
block1: TEdit;
block3: TEdit;
block4: TEdit;
iplong: TEdit;
SpeedButton1: TSpeedButton;
block2: TEdit;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
block1:integer;
block3:integer;
block4:integer;
iplong:integer;

implementation
{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
iplong:=((block1*(256*256*256))+(block2*(256*256))+(block3*256)+(block4*1));
end.

---

← →
Treiber   (2002-10-12 16:08) [1]

eta proga dolgna konvertirovat obichnoje ip v ip bes tochek (long ip )

---

← →
Cr@sh   (2002-10-12 16:09) [2]

Переменнае и названия компонентов не должны совпадать!

---

← →
Groove   (2002-10-12 16:09) [3]

А что нужно то ?

---

← →
Cr@sh   (2002-10-12 16:11) [4]

1)создай переменные с другими именами
2)
var bl1:integer;
bl1:=strtoint(block1.text);
и тд.

---

← →
Treiber   (2002-10-12 16:12) [5]

aga spasibo schas popbrobuju pomenjat

---

← →
Cr@sh   (2002-10-12 16:15) [6]

Ты только из стринга в интегер переводить не забудь
i:=strtoint(string);
и обратно, если надо
string:=inttostr(i);

---

← →
ZrenBy   (2002-10-12 16:20) [7]

>>eta proga dolgna konvertirovat obichnoje ip
>>v ip bes tochek (long ip )

Я конечно не знаю конкретной задачи, но может быть имеет
смысл использовать стандартные функции WinSock
inet_addr и другие ?

---

← →
Treiber   (2002-10-12 16:41) [8]

Tak dolgno eto vigljadit ? ili ja oschibajus ?
TForm1 = class(TForm)
Edit1: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
SpeedButton1: TSpeedButton;
Edit2: TEdit;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
block1:integer;
block2:integer;
block3:integer;
block4:integer;
iplong:integer;

implementation
{$R *.dfm}
begin
block1:=Edit1.text;
block2:=Edit2.text;
block3:=Edit3.text;
block4:=Edit4.text;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
iplong:=((block1*(256*256*256))+(block2*(256*256))+(block3*256)+(block4*1));
iplong.Text:=iplong;
end.

---

← →
Treiber   (2002-10-12 16:44) [9]

sabil end; v konze napisat ;)

---

← →
ZrenBy   (2002-10-12 16:45) [10]

>>block1:=Edit1.text;

block1:=StrToInt(Edit1.text);

---

← →
ZrenBy   (2002-10-12 16:47) [11]

>>iplong.Text:=iplong;

iplong.Text:=IntToStr(iplong);

---

← →
Treiber   (2002-10-12 16:48) [12]

aga tochno spasibo

---

← →
Treiber   (2002-10-12 16:51) [13]

ne chochet kommpilirovatsja
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
SpeedButton1: TSpeedButton;
Edit2: TEdit;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
block1:integer;
block2:integer;
block3:integer;
block4:integer;
iplong:integer;

implementation
{$R *.dfm}
begin
block1:=StrToInt(Edit1.text);
block2:=StrToInt(Edit2.text);
block3:=StrToInt(Edit3.text);
block4:=StrToInt(Edit4.text);
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
iplong:=((block1*(256*256*256))+(block2*(256*256))+(block3*256)+(block4*1));
Edit5.Text:=IntToStr(iplong);
end;
end.

---

← →
ZrenBy   (2002-10-12 16:55) [14]

implementation
{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
block1:=StrToInt(Edit1.text);
block2:=StrToInt(Edit2.text);
block3:=StrToInt(Edit3.text);
block4:=StrToInt(Edit4.text);

iplong:=((block1*(256*256*256))+(block2*(256*256))+(block3*256)+(block4*1));

Edit5.Text:=IntToStr(iplong);
end;

end.

---

← →
Treiber   (2002-10-12 17:03) [15]

spasibo bolschoje vsem !sarobotalo!;

---

← →
Treiber   (2002-10-12 21:58) [16]

Esche poslednij voprosi est chto tipa StrtoInt tolko dlja Real ?

---

← →
ZrenBy   (2002-10-12 22:03) [17]

Абсолютно аналогично. StrToFloat

---

← →
Treiber   (2002-10-12 22:04) [18]

Spasibo

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.10.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.007 c