Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Модератор форума: ADMIN, Nextik  
Библиотека процедур!
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
Награды: 3
Репутация: « 111 »
Статус: Offline
поддерживаю!
удобная процедура!
получение веб страницы. первое что пришло в голову

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
Награды: 3
Репутация: « 111 »
Статус: Offline
надо придумать сначала какие процедуры
 
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
Награды: 3
Репутация: « 111 »
Статус: Offline
откуда ты их берешь? biggrin
 
gost66783805Дата: Пятница, 15.05.2009, 20:24 | Сообщение # 9
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация: « 3 »
Статус: Offline
programmer, сам делаю:)
 
programmerДата: Пятница, 15.05.2009, 20:25 | Сообщение # 10
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
а где идеи берешь?
 
gost66783805Дата: Пятница, 15.05.2009, 20:26 | Сообщение # 11
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация: « 3 »
Статус: Offline
programmer, сам придумываю smile

Сообщение отредактировал 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
Награды: 3
Репутация: « 111 »
Статус: Offline
какие именно?
 
gost66783805Дата: Пятница, 15.05.2009, 20:33 | Сообщение # 14
Новичок
Группа: Пользователи
Сообщений: 11
Награды: 1
Репутация: « 3 »
Статус: Offline
Разбиение обзаца на строки.
 
programmerДата: Пятница, 15.05.2009, 20:33 | Сообщение # 15
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
вот один очень умный чел с этого форума написал процедуру разбива строки на массив
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;
 
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Поиск: