ayuda con arvhivos de textos y arreglos en delphi

[ecfisa]

Empezado por twister

pero creo q si me dices como introducir cada palabra de la cadena q leo del archivo en un arreglo tambien solucionaria mi problema!!

Hola twister, no es ninguna molestia.

A ver si de este modo te sirve:

Código Delphi [-]
function LineasAPalabras(const: NomArch: string; Delimitador: Char): TStrings;
var
  Txt: TextFile;
  TS: TStrings;
  st, Linea: string;
begin
  AssignFile(Txt, NomArch);
  Reset(Txt);
  st:= '';
  while not Eof(Txt) do
  begin
    Readln(Txt, Linea);
    st:= st + Linea;
  end;
  CloseFile(Txt);
  Result:= TStringList.Create;
  Result.Delimiter:= Delimitador;
  Result.DelimitedText:= st;
end;

Ejemplos de uso:

Código Delphi [-]
...
begin
  try
    TS:= TStringList.Create;
    TS:= LineasAPalabras('C:\TU_ARCHIVO.TXT',' '); // TS[0] = primer palabra, ...,  TS[TS.Count-1] = última palabra
    // Acceder a cada una de las palabras
    for i:= 0 to TS.Count - 1 do
      ShowMessage(TS[i]);  // aca haces lo que gustes
  finally
    TS.Free;
  end;
end;

Otro ejemplo:

Código Delphi [-]
     Memo1.Lines:= LineasAPalabras('C:\TU_ARCHIVO.TXT',' ');

La función requiere que le envíes el nombre del archivo (Ruta+Nombre) y el delimitador que usará para distinguir una palabra de otra.

Un saludo.