Форум: "Потрепаться";
Текущий архив: 2004.03.03;
Скачать: [xml.tar.bz2];
ВнизПредложите красивый(пошустрее и поменьше) алгоритм Найти похожие ветки
← →
Домарощинер (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c