прочитать слово из тескстового файла

[bicdibus]

как прочитатьть одно слово изтекстового(тхт) файла,желательно случайное.

[W0LF]

Грузите в файл, рандомно через Pos получаете позицию, допустим большой буквы или пробела, ищите через PosEx слудеющий пробел. Далее узнаете если в конце вашего слова есть знаки пунктуации - удаляете... Но это все на словах...

[bicdibus]

функцыя read читает текст с заданой позиции?

[Serge_Bliznykov]

функцыя read читает текст с заданой позиции?

нет. она читает с текущей позиции указателя в файле..

а вообще, по вопросу видно, что вы не очень представляете себе, какой алгоритм у вас будет, и как его реализовать на Дельфи...
Самый простой способ загрузить файл в память через

 var TS : StringList;
begin
  TS := StringList.Create;
  TS.LoadFromFile('ВашТекстовыйФайл.txt');
// всё в переменнойTS полностью Ваш файл!!

далее берёте любую случайную строчку (в диапазоне от 0 до (TS.Count - 1)

sRandom := TS.Strings[Random(TS.Count)];

потом разбираете эту строчку на слова, подсчитывая их количество (и заполняя массив), потом берёте случайное слово из этого массива..

p.s. в начале программы не забудьте один раз вызвать процедуру randomize;

[Grag]

Сообщение от bicdibus

как прочитатьть одно слово изтекстового(тхт) файла,желательно случайное.

Информация для размышления....

// Разбор текста из файла
procedure FileParser;
var
  Stream: TFileStream;
begin
   Form1.MemoResult.Clear;
   if Form1.OpenDialog.Execute then
   begin
      // Создаем поток и загружаем в него файл
      Stream := TFileStream.Create( Form1.OpenDialog.FileName, fmOpenRead );
      with TParser.Create( Stream ) do
         // Пока не дошли до конца потока...
         while Token <> toEof do
         begin
            Form1.MemoResult.Lines.Add( TokenString );
            NextToken;
         end;
      Stream.Free;
   end;
end;


// Разбор текста из Memo
procedure MemoParser;
var
  Stream: TMemoryStream;
begin
   Form1.MemoResult.Clear;
   // Создаем поток
   Stream := TMemoryStream.Create;
   // Загружаем в него текст из Memo
   Stream.WriteBuffer( Form1.MemoCode.Text[1], Length( Form1.MemoCode.Text ) );
   Stream.Position := 0;
   with TParser.Create( Stream ) do
      // Пока не дошли до конца потока...
      while Token <> toEof do
      begin
         Form1.MemoResult.Lines.Add( TokenString );
         NextToken;
      end;
   Stream.Free;
end;

[W0LF]

Выкладываю то, что накидал (с коментами), специально для вас bicdibus

function GetRandomWord(FileName: string; const WithSimbols: Boolean = False): string;
var
  Text: TStringList;
  {Сюда будем загружать текст и работать с ним в дальнейшем}
  Count: integer;
  {Count используеться для цикла если WithSimbols = False}
  Buff: string;
  {Buff используеться как буфер для использования функции Delete,
   если WithSimbols = False}
begin
  Randomize;
  {Устанавливает генератор случайного числа на следующее значение}
  Text := TStringList.Create;
  {Создаем Text с типом TStringList}
  Text.LoadFromFile(FileName);
  {Загружаем в Text содержимое файла, FileName содержит адрес
   к вашему файлу}
  Text.Delimiter := ' ';
  {Задаем знак разделения, у нас это - пробел}
  Text.DelimitedText := Text.Text;
  {Разделяем текст по строчно, получеться каждое слово на новой
   строке...}
  if WithSimbols = False then begin
    {Если в вызове функции задали WithSimbols = False значит...}
    for Count := 0 to Text.Count - 1 do begin
      {Запускаем цикл от строки №0 до последней (Количество строк - 1)}
      Buff := Text[Count];
      {Загружаем в Buff по очереди слова}
      case Ord(Buff[Length(Buff)]) of
          1..64,
          91..96,
          123..164,
          166, 167,
          171..174,
          176..178,
          181..183,
          185, 187:
      {Если последний символ у нас не буква...}
        begin
          Delete(Buff, Length(Buff), 1);
          {..удаляем его}
          Text[Count] := Buff;
          {Возвращаем слово из буфера назад в Text}
        end;
      end;
    end;
  end;
  Result := Text[Random(Text.Count - 1)];
  {В результат нашей функции возвращаем одно слово, это слово
   определяем через Random (Случайным выбором от первого до
   последнего слова)}
  Text.Free;
  {Освобождаем память занятую переменной Text}
end;

Использование:

    ShowMessage(GetRandomWord('e:\1.txt'));
  //Без знаков препинания

  ShowMessage(GetRandomWord('e:\1.txt', True));
  //Со знаками препинания

[bicdibus]

а 2 файла могуть быть открыты одновременно?
я открыл 2 файла 1 для чтения, 2 для запмси, после запуска проги i/o error32 или 105

[Grag]

Сообщение от bicdibus

а 2 файла могуть быть открыты одновременно?
я открыл 2 файла 1 для чтения, 2 для запмси, после запуска проги i/o error32 или 105

Да хоть десять, только с разными файловыми переменными...

[bicdibus]

переменные у меня разные, но ета ошыбка уже достала i/o error 105

[xakkkkker]

по подробнеей об ошибке на какую строку указывает?