Помогите пожалуйста с лабораторной на Delphi

[Arkuz]

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

Arkuz, ваш код выделяет подстроку от первой до второй точки. А надо до последней.

Прошу извинить за неточность... Но думаю идея и так ясна была...

[Nastroenie_]

а как можно загрузить строку в edit из файла, с помощью компоненты openDialog?

[Sazary]

а как можно загрузить строку в edit из файла, с помощью компоненты openDialog?

Вовсе не обязательно загружать из файла в эдит.
Можно читать прямо из файла.
В моем варианте тогда переменная s не нужна. Вместо нее нужно будет использовать переменную символьного типа (char).
Вот эта часть:

 for i:=1 to length(s) do
  begin

Будет выглядеть примерно как:

while not eof(file) do
  begin
  read(file,c);

То есть идем не до конца строки, а до конца файла.
И вместо

 if s[i] = '.' then

 if c = '.' then