текстовые файлы в паскале

[MetR]

в общем есть тектовый файл, в нем хранится набор из 10 слов, как можно эти слова забить в массив???

[Alex Cones]

Если слова идут каждое на новой строке, то:

Var
S:String;
Ar:Array[0..9] of ShortString;
F:TextFile;
I:Byte;
Begin
AssignFile(F,'File.txt');
Reset(F);
For I:=0 to 9 do
 Begin
  ReadLn(F,S);
  Ar[I]:=S;
 End;
CloseFile(F);

Если подряд через пробел - читаете одну строку и по пробелам определяете границы слов.

Если именнов TPX - Assign и Close соответственно.

[MetR]

спасибо большое!!!
а вот тогда еще вопрос, я этот файл создал через паскаль, т.е. написал небольшую програмку для забивания слов в файл, и они идут у меня подряд без пробелов, а можно как-нибудь сохранить их в файл через пробел, или каждое слво в новой строке???

[ОДИНОЧЕСТВО В СЕТИ]

вместо

write(f,s);

напишите

writeln(f,s);

- для того чтобы с новой строки
а для того чтобы через пробел -

Write(f,s+' ');

[MetR]

все, понял, спасибо!!!!

[LLLexxx]

Здрасьте. Помогите пожалуйста составить прогу, оч срочно надо. Есть 2 текстовых файла, в которых записаны книжки. Вывести одинаковые слова из 1-го и 2-го файлов.

[LLLexxx]

Ауу..кто нибудь..

[Alex_FF]

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

Здрасьте. Помогите пожалуйста составить прогу, оч срочно надо. Есть 2 текстовых файла, в которых записаны книжки. Вывести одинаковые слова из 1-го и 2-го файлов.

а что за книжки то?

[Serge_Bliznykov]

Помогите пожалуйста составить прогу, оч срочно надо. Есть 2 текстовых файла, в которых записаны книжки. Вывести одинаковые слова из 1-го и 2-го файлов

1) отдельный вопрос - отдельная новая тема.
2) вопрос то в чём? Тут всё упирается в объёмы памяти и скорость работы программы.
самый простой способ - заводим массив, читаем первую книжку, разбирая на слова и записывая в массив (с проверкой - если такое слово есть - тогда его уже не пишем.)
потом разбираем вторую книжку. алгоритм такой же, только разбирая слова ищем их в массиве, заполненном разбором первой книги, если там нашли - выдаём, как найденное общее слово...
наработки есть?...

[OzjaSha]

Задание:
Даны два символьных файла F1 и F2. Файл F1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл F2 содержит не более 40 слов, которые разделены запятыми. Эти слова образуют пары: каждое первое слово - заменяющим. Найти в файле F, все заменяемые слова и заменить их на соответствующие заменяющее. Результат поместить в файл D.
Плиз ребята!