Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.03;
Скачать: CL | DM;

Вниз

Предложите красивый(пошустрее и поменьше) алгоритм   Найти похожие ветки 

 
Домарощинер ©   (2004-02-11 19:52) [0]

procedure TForm1.btnChangeAllSpacesClick(Sender: TObject);
var dataProceed:TStringList;
i,j:Integer;
s:string;
begin
dataProceed:=TStringList.Create;
try
dataProceed.Text:=Memo1.Text;
for i:=0 to dataProceed.Count-1 do begin
s:=dataProceed[i];
for j:=0 to length(s)-1 do
if s[j]=" " then s[j]:="-";
dataProceed[i]:=s;
end;
Memo1.Text:=dataProceed.Text;
finally
dataProceed.Free;
end;
end;


 
Тимохов ©   (2004-02-11 19:55) [1]

Для начала for j:=1 to length(s) do


 
TUser ©   (2004-02-11 20:09) [2]

http://delphimaster.net/view/1-1076511513/


 
Тимохов ©   (2004-02-11 20:14) [3]

Забей на tstringlist
s := memo.text
for ....
// replace in ss
memo.text := s


 
Домарощинер ©   (2004-02-11 20:16) [4]

2TUser © (11.02.04 20:09) [2]
нужно не удалить пробелы, а заменить их
Хотя StringReplace - это интересно...

2All
А можно ли здесь прикрутить асм, чтобы выиграть в скорости?


 
Тимохов ©   (2004-02-11 20:18) [5]

Можно, выиграешь много, но через месяцок, когда изучишь асм и отладишься. :))))))


 
Домарощинер ©   (2004-02-11 20:21) [6]

2Тимохов © (11.02.04 20:18) [5]
Я бы с удовольствием.
Только кто бы меня освободил от основной работы без потери оклада?%)



Страницы: 1 вся ветка

Текущий архив: 2004.03.03;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
1-6011
SeriousSam
2004-02-21 19:17
2004.03.03
Как вставить


1-6075
Артем
2004-02-21 08:47
2004.03.03
Гиперссылки в документах Word


7-6259
DiMoon
2003-12-15 14:26
2004.03.03
WinSpool


1-6138
Harm
2004-02-19 16:34
2004.03.03
Последний день месяца


14-6227
Nikolay M.
2004-02-10 22:39
2004.03.03
У кого сохранилось что-нибудь из