Помогите!

← →
MuxauJl (2003-12-06 16:48) [0]

Люди помогите найти ошибку!
Смысл текстухи: Должна обработать каждый символ в строке, и выполнить определенное действие!
Портак: обрабатывает и показывает в Memo только последний символ.
Вот текст:

var sklad,sim:string;i:integer;
begin
form4.edit2.pastefromclipBoard;
for i:=1 to length(form4.Edit2.Text) do
sim:=form4.Edit2.Text[i];

if sim="/" then form4.Memo1.Text:=form4.Memo1.Text+"а";
и.д

← →
MBo (2003-12-06 16:52) [1]

for i:=1 to length(form4.Edit2.Text) do BEGIN
...
end;

← →
MuxauJl (2003-12-06 17:47) [2]

приму к сведению, но не в этом проблема!

← →
Sam Stone (2003-12-06 18:05) [3]

> но не в этом проблема

ню-ню......

← →
MuxauJl (2003-12-06 19:11) [4]

То есть ошибок кроме begin end; нет? Но у меня все равно не хочет символы обрабатывать!!!

← →
Anatoly Podgoretsky (2003-12-06 19:29) [5]

MuxauJl © (06.12.03 19:11) [4]
Нет, это не означает, что других ошибок нет, зато это точно ошибка. У тебя же есть загадочное и т.д.
Теоритически sim: string это тоже ошибка.

← →
Dimaz-z (2003-12-06 20:28) [6]

Может
...
if sim="/" then form4.Memo1.Lines.Text:=form4.Memo1.Lines.Text+"а";

← →
Юрий Зотов (2003-12-06 21:04) [7]

> MuxauJl © (06.12.03 19:11) [4]

> но не в этом проблема!
А если подумать?

> Но у меня все равно не хочет символы обрабатывать!!!
Очень похоже, что в begin...end Вы взяли только одну строку:
sim:=form4.Edit2.Text[i];
Но ведь это ничего не меняет, верно?

===============
Все же стоило бы подумать...

← →
Sam Stone (2003-12-06 22:00) [8]

выложи весь код, если он не слишком большой

← →
Debug (2003-12-07 00:01) [9]

Вот именно!
А надо:
var sklad,sim:string;i:integer;
begin
form4.edit2.pastefromclipBoard;
for i:=1 to length(form4.Edit2.Text) do
begin
sim:=form4.Edit2.Text[i];
if sim="/" then form4.Memo1.Text:=form4.Memo1.Text+"а";
end;
и.д

← →
MuxauJl (2003-12-07 10:54) [10]

Все замечания приму к сведению, исправлю! Весь Код выложу чуть попозже!
Anatoly Podgoretsky
и т.д. это значит что дальше идет много одинаковых ифов.

← →
Anatoly Podgoretsky (2003-12-07 11:11) [11]

много IF приводить не надо, интереснее else

← →
MuxauJl (2003-12-07 12:54) [12]

MBo
Sam Stone
Anatoly Podgoretsky
Юрий Зотов
Debug

ВСЕМ БОЛЬШОЕ СПАСИБО! ПРОГУ ДОПИСАЛИ! ВСЕ РАБОТАЕТ ОТЛИЧНО!
Желаю всем удачи! Тему можно закрывать!

Помогите! Найти похожие ветки