Работа с текстовыми файлами

[OlegII]

Здравствуйте!
Помогите, пожалуйста, с решением задачки.
Прочитать текстовый файл. На отдельной форме вывести этот же текст, но в котором каждое новое предложение написано с новой строки (предложения заканчиваются точкой).
Заранее огромное спасибо!!!

[andrewpalkin]

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

Здравствуйте!
Помогите, пожалуйста, с решением задачки.
Прочитать текстовый файл. На отдельной форме вывести этот же текст, но в котором каждое новое предложение написано с новой строки (предложения заканчиваются точкой).
Заранее огромное спасибо!!!

Какой язык программирования и что уже ты написал ???

[OlegII]

Delphi

procedureTForm1.Button1Click (Sender: TObject);
Var f: TextFile;
st: String;
begin
AssignFile (f,'c:\filename.txt');
Reset (f);

[andrewpalkin]

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

Delphi

...

Delphi не владею , так что помочь не могу . Да и код у тебя ничего не делает еще , так что и помочь поправить не могу , так как кода практически и нет .

Могу только сказать , как сделать программу , алгоритм .

1. Читай из файла символ - символ и распечатывай .
2. Когда считываешь символ '.' , то просто этот символ пиши на экран как writeln и все .

Тебе нужен один цикл , что бы пройти по файлу и параллельно печатать его на экран .

[SERG1980]

Попробуйте через StringList. или выложите исходный файл

[Stilet]

Интересная задачка...
Допустим так:

procedureTForm1.Button1Click (Sender: TObject);
Var f: file of char;
st: TStringList;c:char;;
begin
AssignFile (f,'c:\filename.txt');Reset (f); 
st:=TStringList.Create;st.Add('');
while not eof(f) do begin
 read(f,c);
 if ord(c)>32 then begin
  st[st.count-1]:=st[st.count-1]+c;
  if c='.' then st.Add('');
 end;
end;
// Здесь допустим у тебя на второй форме лежит Мемо - 
Memo.Lines.Text:=st.Text;
st.Free;
closefile(f);
end;

С потолка, но думаю заработает.

[OlegII]

Огромное спасибо!