Hola.
Te pido mil disculpas, no sé donde tenía la cabeza que interpreté 'clipboard' cuando en realidad era 'notepad'
Sería:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
TS: TStrings;
VStr: array of string;
i: Integer;
begin
OpenDialog1.Filter:= 'Archivos de texto|*.txt';
if OpenDialog1.Execute then
begin
TS:= TStringList.Create;
try
TS.LoadFromFile(OpenDialog1.FileName);
for i:= 0 to TS.Count -1 do
begin
SetLength(VStr,i+1);
VStr[i]:= TS[i];
end;
finally
TS.Free;
end;
end;
end;
El código sería mucho más sencillo si no te pidieran guardarlo en un
array de string.
Saludos.