|
Библиотека процедур!
|
|
| gost66783805 | Дата: Пятница, 15.05.2009, 20:10 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| Товарищи! Есть идея! Сделать много процедур на разные случаи жизни, а мы их будем просто копировать и использовать в своих программах!!! Сейчас дам примеры!
|
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:12 | Сообщение # 2 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| Вот допустим процедура очистки экрана:
procedure cls;
begin
setColor(255,255,255);
fillRect(0,0,getWidth,getHeight);
end;
|
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:15 | Сообщение # 3 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| А вот процедура для вывода текстовых пунктов с заданным промежутком пикселов от заданной координаты: procedure textMenu(text1,text2,text3,text4:string;x,y,prom:integer);
begin
drawText(text1,x,y);
drawText(text2,x,y+prom);
drawText(text3,x,y+prom+prom);
drawText(text4,x,y+prom+prom+prom);
end;
|
| |
| |
| programmer | Дата: Пятница, 15.05.2009, 20:15 | Сообщение # 4 |
|
Умный
Группа: Проверенные
Сообщений: 599
| поддерживаю!
удобная процедура!
получение веб страницы. первое что пришло в голову function receivepage(url:string):string;
var conn: http;
htmlBody: string;
contentType: string;
i: integer;
begin
if not openHttp(conn, url) then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
i:=sendHttpMessage(conn);
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
receivepage := htmlBody;
end.
|
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:16 | Сообщение # 5 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| ДАвайте делать новые команды!
|
| |
| |
| programmer | Дата: Пятница, 15.05.2009, 20:20 | Сообщение # 6 |
|
Умный
Группа: Проверенные
Сообщений: 599
| надо придумать сначала какие процедуры
|
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:22 | Сообщение # 7 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| Вот процедура заставки из трех картинок с заданной паузой:
procedure zastawka3(im1,im2,im3:string;sleep:integer);
begin
drawImage(loadImage(im1),0,0);
repaint;
delay(sleep);
drawImage(loadImage(im2),0,0);
repaint;
delay(sleep);
drawImage(loadImage(im3),0,0);
repaint;
delay(sleep);
end;
|
| |
| |
| programmer | Дата: Пятница, 15.05.2009, 20:24 | Сообщение # 8 |
|
Умный
Группа: Проверенные
Сообщений: 599
| откуда ты их берешь? 
|
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:24 | Сообщение # 9 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| programmer, сам делаю:)
|
| |
| |
| programmer | Дата: Пятница, 15.05.2009, 20:25 | Сообщение # 10 |
|
Умный
Группа: Проверенные
Сообщений: 599
| а где идеи берешь?
|
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:26 | Сообщение # 11 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| programmer, сам придумываю 
Сообщение отредактировал gost66783805 - Пятница, 15.05.2009, 20:27 |
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:27 | Сообщение # 12 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| Народ, давайте сделаем процедуры по работе со строками?
|
| |
| |
| programmer | Дата: Пятница, 15.05.2009, 20:30 | Сообщение # 13 |
|
Умный
Группа: Проверенные
Сообщений: 599
| какие именно?
|
| |
| |
| gost66783805 | Дата: Пятница, 15.05.2009, 20:33 | Сообщение # 14 |
|
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация:
« 3 »
Статус: Offline
| Разбиение обзаца на строки.
|
| |
| |
| programmer | Дата: Пятница, 15.05.2009, 20:33 | Сообщение # 15 |
|
Умный
Группа: Проверенные
Сообщений: 599
| вот один очень умный чел с этого форума написал процедуру разбива строки на массив
procedure massivizstroki(stroka:string);{процедура создает массив из строки,писал ее не я,а 12121}
var
n,tmend:integer;//tmend - количество получившихся строк
t:string;
begin
tmend:=1;
t:=stroka;
for n:=1 to length(t) do begin //разбивка на пункты
if copy(t,n-1,n)=';' then begin tmend:=tmend+1;n:=n+1; end;
tm[tmend]:=tm[tmend]+copy(t,n-1,n);
end;
lines:=tmend;
end;
|
| |
| |
