Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Вниз

Variable required   Найти похожие ветки 

← →
Mush[RUM]   (2002-05-16 22:30) [0]

Мастера подскажите по чему не выскакивает ошибка Variable required?

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
w:string;
begin
for i:=1 to 6 do begin
move((edit1.text),w,1); //вот на это место указывает говорит что с w не все в порядке
showmessage(w);
end;
end;

---

← →
igor_2k   (2002-05-16 22:41) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
w:string;
begin
for i:=1 to 6 do begin
w:=edit1.text; - (* попробуй заменить свою строку - просто первое что пришло в голову *)
showmessage(w);
end;
end;

---

← →
Mush[RUM]   (2002-05-16 22:47) [2]

нет этот код просто пример... задача конечно не совсем такая :)
то есть посложнее. но смысл тот же и ошибка тоже выскакивает.

---

← →
igor_2k   (2002-05-16 22:53) [3]

тогда конкретенее не совсем понимаю зачем вообще в этом случае переменные:
showmessage(edit1.text) - не але?

---

← →
ION T   (2002-05-16 23:08) [4]

edit1.text - не переменная (а как раз на неё тыкает компилятор, а не на w). Одно из решений:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
s, w: string;
begin
SetLength(w, 256);
for i:= 1 to 6 do
begin
s:= edit1.Text;
move(s, w, 1);
showmessage(s);
end;
end;

---

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

Форум: "Основная";
Текущий архив: 2002.05.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c