Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.6 MB
Время: 0.053 c
3-78207
saxon
2002-10-04 12:20
2002.10.24
D3->D6 (TDBCtrlGrid + TDBLookupComboBox)


14-78670
AL2002
2002-10-05 01:03
2002.10.24
Всё. Пора спать, а то


3-78241
diwin
2002-10-01 18:58
2002.10.24
теоретический вопрос по Query


14-78597
Карлсон
2002-10-01 21:37
2002.10.24
мужики, и дамы тоже....


1-78489
msdn1
2002-10-13 15:04
2002.10.24
Richedit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский