leer palabras de ficheros de texto

[aeff]

implementa estas dos funciones y la variable siguiente:

Código Delphi [-]
var
  vContenido: string;

implementation

procedure LoadFileTxt(fname: string);
var
  vTxtFile: TextFile;
  vLine: string;
begin
  vContenido := '';
  AssignFile(vTxtFile, fname);
  Reset(vTxtFile);
  while not Eof(vTxtFile) do
    begin
      Read(vTxtFile, vLine);
      vContenido := vContenido + vLine + ' ';
    end;
  CloseFile(vTxtFile);
end;

function GetPalabra(index: Integer): string;
var
  vSubStr, vWord: string;
  WordCount: Integer;
begin
  WordCount := 0;
  vSubStr := TRIM(vContenido) + ' ';
  while WordCount < index do
    begin
      if vSubStr = ' ' then
        begin
          vWord := '';
          break;
        end;
      vWord := Copy(vSubStr, 1, Pos(' ', vSubStr));
      vSubStr := TRIM( Copy(vSubStr, Length(vWord), Length(vSubStr))) + ' ';
      Inc(WordCount);
    end;
  Result := vWord;
end;

un ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadFileTxt('C:\aeff.txt');
  Caption := GetPalabra(3);
end;

espero que te sirva,

saludos

aeff