Hola bulc.
Cita:
Empezado por bulc
Lo que si quiero aprender es a extraer los datos de un TMemo o un StringList y pasarlos a un Array.
...
|
A yo pensé que el problema se trataba de intercambiar las imágenes.
Un ejemplo:
Código Delphi
[-]
implementation
type
TArrayString = array of string;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
Memo1.Clear;
ListBox1.Clear;
for i := 1 to 10 do
Memo1.Lines.Add( Format('Linea %d', [i]) );
end;
procedure StringsToArrayStrings(const Str: TStrings; var ArrayStr: TArrayString);
var
i: Integer;
begin
SetLength( ArrayStr, Str.Count );
for i:= 0 to Str.Count-1 do
ArrayStr[i] := Str[i];
end;
procedure ArrayStringsToStrings(const ArrayStr: TArrayString; Str: TStrings);
var
i: Integer;
begin
for i:= Low( ArrayStr ) to High( ArrayStr ) do
Str.Add( ArrayStr[i] );
end;
procedure TForm1.Button1Click(Sender: TObject);
var
v: TArrayString;
begin
StringsToArrayStrings( Memo1.Lines, v );
ArrayStringsToStrings( v, ListBox1.Items );
end;
Saludos