Само полезни материали
Основен акционер в Alibaba стана най-богатият човек в Китай
статии
Microsoft започна тестване частен офис 16
статии
Експертите са установили, вратички в Windows 8.1 за сигурност
статии
В метрото в Москва ще бъде единна мобилна мрежа
статии
иБей ще приема Bitcoin
статии
Vivitek въведе "училище" проектор D755WTIR
статии
В Twitter е имало бутона "Купи"
статии
"Yandeks.Novosti" вече могат да се видят на iPhone
статии
В тази статия ще се спра на определението за пинг (пинг) в Делфи. Мисля, че всички сме запознати с standartonoy прозорци команда. Ако не, натиснете клавишната комбинация Win + R, и ще се появи в прозореца, въведете CMD
Сега, същото ще се опитат да въведат в Делфи. Създаване на нов проект File-> новообза-> VCL Формуляр за кандидатстване и се хвърлят под формата на следните компоненти: TButton, TLabel, TEdit и TMemo. За по-красив дисплей може да бъде в настройките на Memo да промените цвета на шрифта (Font-> Color).
За провеждане на пинг използват следната процедура:
процедура TForm1.Button1Click (Sender: TObject); започнем Ping (Edit1.Text, Memo1.Lines); приключи;
процедура TForm1.Button1Click (Sender: TObject); започнем Ping (Edit1.Text, Memo1.Lines); приключи;
Свързани статии