Определяет номера позиции последней точки. Delphi

[fuzo]

Собственно сама задача:
Среда разработки Delphi.


Дан текст (массив строк). Составить программу, которая в каждой строке текста определяет номер позиции последней точки.



з.ы. Нужен не консольный вариант, а ввод через форму.. Т.е. мемо1(Ввод текста) мемо2(вывод позиции посл. точки.)

[Stilet]

Ну в чем траблы?

var i,j:integer;
begin
 For i:=0 to Memo1.Lines.Count-1 do begin
  j:=length(Memo1.Lines[i]);
  while (j>1)and(Memo1.Lines[i][j]<>'.') do dec(j);
  Memo2.Lines.Add(IntToStr(j));
 end; 
end;

Навскидку.
Поставь это на клик кнопки.

[fuzo]

Спасибо.

А не подскажешь как найти первую точку?

[Stilet]

А не подскажешь как найти первую точку?

Memo2.Lines.Add(IntToStr(pos('.',Me mo1.Lines[i])));

И никакого While...

[fuzo]

Благодарствую

[Stilet]

Всегда пожалуйста )