[Source] Проверка обновления [Мини урок]

Всем ку решил выложить свой гавно кодик:D,в-общем простой кодик для скажим так "Для грабба текста с сайта txt файла" и выводим это в "sMemo"
1. Добавим "IdHTTP",в саму программу, и в коде в "USES" можно или в начале после "interface" или после "TYPE" и после implementation {$R *.dfm},создаём uses и пишем туда "IdHTTP"
2. Создаем сразу 2 "фобриката" :D, тоесть: sMemo1,sButton1.
3. Кликаем 2 раза на кнопку "sButton1" тоесть делаем - "процедуру клика" (При нажатии на кнопку это будет происходить).
4. Добовляем "var" на "sButton1" и добовляем туда - "link:string;" после "link:string;" пишем "begin" тоесть что будет при клике на кнопку (хз как обьяснить по другому)
5. и после "Begin" пишем мой мини кодик ;) - "link:=IdHTTP1.Get('http://youhack.top/lalka.txt');" - ссылку откуда будет грабить текст! потом еше мини кодик на sMemo1, "sMemo1.Text:=trim(link);" - то есть то что сграбили добовляем в sMemo1, либо можно по другому но это не имеет значение,"sMemo1.lines.add('Инфа'+trim(link));
------------------------------------------
Ну а вот песь код примером:

procedure TForm1.sButton1Click(Sender: TObject); // сама процедура
var // тот вар о котором я говорил
link:string;
begin //начало кода
link:=IdHTTP1.Get('http://'); //ссылка откуда парсим инфу именно с тхт файла
sMemo1.Text:=trim(link); // Точто спарсили добовляем в "sMemo1"
end;

P.S: Совет, люди кто взял данный код совет, не берите пример кода, а прочитайте всю инфу и тогда поймете что к чему и в дальнейшем будите понимать и другие коды в кодинге самое важное это как некоторые не просто "взял код и вставил программу и получилось" - но нужно чтобы вы сами поняли это! Но это судить не мне а только вам, но это просто совет прислушайтесь к словам)
​

 

за код спс новичкам сойдет

 

Надо попробовать!=) может что-то выйдет

 

sMemo1.Lines.Add('Информация: '+IdHTTP1.Get('http://')); уже не проще ли так

 

+++ Красавелла