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

← →
Домарощинер © (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
А можно ли здесь прикрутить асм, чтобы выиграть в скорости?

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

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

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