| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Pomogite nachinajushemu [D6, WinXP]

Treiber ©   (2002-10-12 16:06:00) 

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 22:04:00) [1]

Spasibo

---

ZrenBy   (2002-10-12 22:03:00) [2]

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

---

Treiber   (2002-10-12 21:58:00) [3]

Esche poslednij voprosi est chto tipa StrtoInt tolko dlja Real ?

---

Treiber   (2002-10-12 17:03:00) [4]

spasibo bolschoje vsem !sarobotalo!;

---

ZrenBy   (2002-10-12 16:55:00) [5]

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 16:51:00) [6]

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.

---

Treiber   (2002-10-12 16:48:00) [7]

aga tochno spasibo

---

ZrenBy   (2002-10-12 16:47:00) [8]

>>iplong.Text:=iplong;

iplong.Text:=IntToStr(iplong);

---

ZrenBy   (2002-10-12 16:45:00) [9]

>>block1:=Edit1.text;

block1:=StrToInt(Edit1.text);

---

Treiber   (2002-10-12 16:44:00) [10]

sabil end; v konze napisat ;)

---

Treiber   (2002-10-12 16:41:00) [11]

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.

---

ZrenBy   (2002-10-12 16:20:00) [12]

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

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

---

Cr@sh   (2002-10-12 16:15:00) [13]

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

---

Treiber   (2002-10-12 16:12:00) [14]

aga spasibo schas popbrobuju pomenjat

---

Cr@sh   (2002-10-12 16:11:00) [15]

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

---

Groove   (2002-10-12 16:09:00) [16]

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

---

Cr@sh   (2002-10-12 16:09:00) [17]

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

---

Treiber   (2002-10-12 16:08:00) [18]

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

---

Наверх