| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
POS, Copy, Insert [D6]
БурЖуй © (2003-01-16 11:21:00)Господа!
У меня тут проблема... есть стринговая переменная .... килобайт этак до 300... есть у меня функция, логический смысл которой сводиться к поиску вхождения фрагмента и в зависимости от параметра napr обрезать текст , что стоит до неё или после него:
function tform1.cuts(tex,fragm:String;napr:boolean):String;
var ter:AnsiString; LK,d:INTEGER;
begin
{}
for d:=1 to length(tex) do begin
if (tex[d]=#$A) and (tex[d-1]<>#$D) then insert(#$D,tex,d);
if napr=true then begin
lk:=pos(fragm,tex);
{memo1.Text:=memo1.Text+tex;}
cuts:=copy(tex,lk+length(fragm),length(tex)-lk+length(fragm));
end;
if napr=false then begin
lk:=pos(fragm,tex);
cuts:=copy(tex,1,lk-1);
end;
end;
Проблема в том, что эта процедура у меня вызываетсядостаточно част, с разными параметрами.... А её скорость выполнения меня не устраивает... Потому как для заполнения одной ячейки стринггрида мне нужно выполнить эту функцию как минимум 5 раз. В строке 10 колонок. Таких колонок до 500.... В итоге За один заход при дополнения 500 колонок я трачу окола 25 секунд, и это на Атлоне 1.7+
Подскажите, как можно оптимизировать эту функцию?
eheyler (2003-01-16 12:40:00) [1]http://www.programme.ru/archive/2002/6/062002_6.phtml
Anatoly Podgoretsky (2003-01-16 11:46:00) [2]Ну я так только основные моменты затронул и так ясно что с таким кодом делать
gek (2003-01-16 11:40:00) [3]
> for d:=1 to length(tex) do begin
Как-то это смущает и еще
if napr then
begin
lk:=pos(fragm,tex);
{memo1.Text:=memo1.Text+tex;}
cuts:=copy(tex,lk+length(fragm),length(tex)-lk+length(fragm));
end
else
begin
....
Anatoly Podgoretsky (2003-01-16 11:38:00) [4]Ну тебе везет, что ты еще и по ошибке не выскакиваешь,
например tex[1] = #$A
AdjustLineBreaks
Это тоже ошибка d:=1 to length(tex), у тебя же length меняется во время цикла.
napr=true/false тоже ни в какие ворота не лезет.
cuts:= это тоже из древних времен
| |
