| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кто-нить объяснит мне>?? [D6, WinXP]

PaRL ©   (2002-04-30 20:20:00) 

Почему не работает. Вообще никакой реакции.

var k, m : integer;
s : string;
begin
for k := 0 to Memo1.Lines.Count do
begin
s := Memo1.Lines[k];
for m := 1 to Length(Memo1.Lines[k]) do
begin
if s[m] = "," then s[m] := "1";
end;
end;



---

MBo   (2002-04-30 20:23:00) [1]

for k := 0 to Memo1.Lines.Count-1 do
begin
s := Memo1.Lines[k];
Memo1.Lines[k]:=StringReplace(s,",","1",[rfReplaceAll]);
end;

---

PaRL   (2002-04-30 20:21:00) [2]

Простите, чё то я сегодня переутомился :)
Всё понял :)

---

Наверх