Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c