Цитата:
|
Сообщение от NIch
Код:
for i:= 0 to length(edit1.text)-1 do
тогда эта строка
[/code]
|
Во первых, строки нумеруются с единицы, а не с нуля!
Цитата:
|
Сообщение от NIch
Код:
if copy(edit1.text, i, 1) = ',' then
|
Это извращение помоему, можно было прсто написать
Код:
if Edit1.Text[i] = '' then
Да и вообще было лучше двигаться от конца строки к началу, до первого нахождения, а иначе, запятых может быть несколько, и значение будет выведено несколько раз.