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

Вниз

Кто-нить объяснит мне>??   Найти похожие ветки 

 
PaRL ©   (2002-04-30 20:20) [0]

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

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;



 
PaRL ©   (2002-04-30 20:21) [1]

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


 
MBo ©   (2002-04-30 20:23) [2]

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



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

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

Наверх




Память: 0.46 MB
Время: 0.009 c
14-50126
Alx2
2002-04-05 13:42
2002.05.16
Самый длинный (прикольный) палиндром.


4-50166
ATLANTIDO
2002-03-14 23:38
2002.05.16
Запуск приложения


14-50110
VID
2002-03-27 19:45
2002.05.16
Голосование о ПИВЕ


1-49904
Diablo III
2002-05-02 20:21
2002.05.16
TWebBrowser


3-49832
Бульбаш
2002-04-18 09:49
2002.05.16
Сумма прописью. Подскажите плиз, где можно взять данную