Помогите!

← →
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]

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

Вот именно!
А надо:
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;
и.д

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

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

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

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

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