Hola tiwster.
No, no podés eliminarlo una vez enviado, no te preocupes ya irás manejando el tema. Sólo te lo hago presente para que lo tengas en cuenta en el futuro.
Ahora a lo nuestro, no te sirvió el ejemplo con TStrings...
Bueno, aca te hice un ejemplo con un arreglo y te agregué comentarios en las líneas como mejor pude:
Código Delphi
[-]
const
MAXPALABRAS = 5000;
var
v: array[1..MAXPALABRAS] of string;
ix: Integer;
procedure TForm1.LineaAPalabras(NomArch: string);
var
F: TextFile;
p: Integer;
s: string;
begin
AssignFile(F, NomArch); Reset(F); ix:= 0; while not Eof(F) do begin
ReadLn(F, s); s:= s + ' '; p:= Pos(' ', s); while p <> 0 do begin
Inc(ix); v[ix]:= Copy(s, 1, p); s:= Copy(s, p+1, MaxInt); p:= Pos(' ', s); end; end; CloseFile(F); end;
Ejemplo de llamada:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
LineaAPalabras('PRUEBA.TXT');
Memo1.ScrollBars:= ssVertical;
Memo1.Clear;
for i:= 1 to ix do
Memo1.Lines.Add(v[i]);
end;
No lo creo, pero por si tenés algún problema, te adjunto el ejemplo funcionando.
Un saludo.