Cita:
Empezado por douglas
ok mira probe hacer esto ahorita
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
area[i]:=memo1.Lines[i];
end;
edit1.Clear;
edit1.Text:=area[1];
end;
segun yo me tendria que haber insertado el texto de la linea 1 en el edit, pero no fue asi
|
Ojito con ese código amigo mio. El array empieza en el índice 1, mientras que el memo empieza en el índice cero, por tanto, la primera vez que entra en el bucle:
i = 0
area[0] := memo.lines[0]
eso debería dar un error de esos que asustan
, ya que estas escribiendo en "area" en un índice que no existe.
La solución más fácil : var area:array[
0..15] of string;
Código Delphi
[-]
....
edit1.Clear;
edit1.Text:=area[0];
end;
Ahora si funciona como esperabas, ¿verdad?
Saludos