Intercambiar posiciones de varias imágenes

[ecfisa]

Hola bulc.

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;

// unas líneas al memo
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;

// Strings -> array of string
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;

// array of string -> Strings
procedure ArrayStringsToStrings(const ArrayStr: TArrayString; Str: TStrings);
var
  i: Integer;
begin
  for i:= Low( ArrayStr ) to High( ArrayStr ) do
    Str.Add( ArrayStr[i] );
end;

// llamada ej.
procedure TForm1.Button1Click(Sender: TObject);
var
  v: TArrayString;
begin
  StringsToArrayStrings( Memo1.Lines, v );
  ArrayStringsToStrings( v, ListBox1.Items );
end;

Saludos