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;

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