|
Библиотека процедур!
|
|
|
15.05.2009 в 20:26
Сообщение #11
|
|
gost66783805
Новичок
Пользователи
Сообщений: 11
Offline
|
programmer, сам придумываю 
Сообщение отредактировал gost66783805 - Пятница, 15.05.2009, 20:27
|
|
|
|
|
15.05.2009 в 20:27
Сообщение #12
|
|
gost66783805
Новичок
Пользователи
Сообщений: 11
Offline
|
Народ, давайте сделаем процедуры по работе со строками?
|
|
|
|
|
15.05.2009 в 20:30
Сообщение #13
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
какие именно?
|
|
|
|
|
15.05.2009 в 20:33
Сообщение #14
|
|
gost66783805
Новичок
Пользователи
Сообщений: 11
Offline
|
Разбиение обзаца на строки.
|
|
|
|
|
15.05.2009 в 20:33
Сообщение #15
|
|
programmer
Умный
Проверенные
Сообщений: 599
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;
|
|
|
|
|
15.05.2009 в 20:33
Сообщение #16
|
|
gost66783805
Новичок
Пользователи
Сообщений: 11
Offline
|
Тоесть читается переменная, если каретка , то в массив читается следующая строка
|
|
|
|
|
15.05.2009 в 20:37
Сообщение #17
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
ну да. тот большой имвол - разделитель строки, его можно менять
|
|
|
|
|
15.05.2009 в 20:43
Сообщение #18
|
|
gost66783805
Новичок
Пользователи
Сообщений: 11
Offline
|
programmer, чето не работает она, ошибка в tm[] там массив не обьявленный.
|
|
|
|
|
15.05.2009 в 20:59
Сообщение #19
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
а ну да я его в глобальных переменгных обьявлял. обьяви его только после заголовка проги а непроцедуры
|
|
|
|
|
19.05.2009 в 18:47
Сообщение #20
|
|
programmer
Умный
Проверенные
Сообщений: 599
Offline
|
а так идея классная! +1 в репутацию тебе за жто 
|
|
|
|
