|
gracias lepe buena onda, me funciono re bien el codigo me queda asi
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+1]:=memo1.Lines[i];
end;
end;
bueno ahora ya sabemos que cada linea del memo esta en cada variable del array.
pero ahora te vuelvo a molestar con otra pregunta:
a[1]:='hola'
suponiendo que lo anterio fue capturado en la primer linea del memo, pero ahora eso lo quiero pasar a otro array pero de esta forma
b[1]:='h';
b[2]:='o';
b[3]:='l';
b[4]:='a';
existen algun modo???? ayudenme si
|