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

[Nastroenie_]

Дана строка символов. В строке имеется несколько символов ‘.’. Выделить подстроку между первой и последней точкой.
строку считывать с файла.

[Sazary]

Ищете первую точку. Запоминаете позицию.
Ищете вторую точку. Запоминаете позицию (в другую переменную).
Далее ищете все остальные точки. Если точек больше нет, то выделаете подстроку между первой (которую запомнили сначала) и последней (та, которую запомнили перед тем, как точки кончились).

Для поиска достаточно посимвольно пройтись по файлу.

[Nastroenie_]

благодарю, сейчас попробую реализовать

[Arkuz]

procedure TForm1.Button1Click(Sender: TObject);
var
 s:string;
 i,f:integer;
begin
 s:=Edit1.Text;
 f:=0;
 for i:=1 to length(s)do
   begin
     if s[i]='.' then f:=1;
     if f=1 then
     begin
       if (s[i+1]='.') then break;
       Edit2.Text:=edit2.Text+s[i+1];
     end;
   end;
 f:=0;
end;

[Nastroenie_]

спасибо большое очень выручил

[Nastroenie_]

а может f лучше булевского типа сделать

[Sazary]

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

Мой вариант.

procedure TForm1.Button1Click(Sender: TObject);
var
 s,sub:string;
 i:integer;
 f : boolean;
begin
 s:=Edit1.Text;
 f:=false;
 sub := '';
 for i:=1 to length(s) do
  begin
  if s[i] = '.' then
   begin
   if not f then
    begin
    f := true;
    continue;
    end
   else
    begin
    Edit2.Text := Edit2.Text + sub;
    sub := '';
    end;
   end;
  if not f then continue;
  sub := sub + s[i];
  end;

end;

[Nastroenie_]

и выделение строки происходит не между первой и последней точкой, а между первой и второй

[Nastroenie_]

благодарю Вас Sazary, все верно

[Arkuz]

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

а может f лучше булевского типа сделать

Разницы не вижу... Но если только в целях экономии памяти за счёт типа данных...