Abrir archivos en TMemo o equivalente

[[seoane]]

Empezado por Delar

Y podria hacer por ejemplo, Stream[1], Stream[2], ... o e de utilizar variables diferentes?

Si sabes el numero máximo de Streams que vas a necesitar, puedes usar algo como esto:

Código Delphi [-]
// Declaramos un array de 10 Streams
Stream: array[1..10] of TMemoryStream;

// En el evento OnCreate, por ejmplo, los creamos
var
  i: Integer;
begin
  for i:= Low(Stream) to High(Stream) do
    Stream[i]:= TMemoryStream.Create;
end;

// En el evento OnClose, por ejmplo, los desturimos
var
  i: Integer;
begin
  for i:= Low(Stream) to High(Stream) do
    Stream[i].Free;
end;

// Para cargar el archivo
Stream[5].LoadFromFile('Origen.jpg');

// Para guardar el archivo
Stream[5].SaveToFile('Destino.jpg');