Программирование в Delphi Урок 7-1. Решение самостоятельной задача

На этом уроке разберем решение самостоятельной практической задачи, которую я дал Вам на прошлом уроке

[РахимГаджиев-из]

Я сейчас начал изучать делфи, Илья, спасибо вам огромное, что существует ваше видео пособие, респект вам за уроки

[VadimLevkin]

На мой взгляд Ваши уроки - лучшие уроки по Delphi в Интернете!!!
И, кроме того, показана работа именно с современной версией Delphi - это важно!

[СлаваБуланов-нж]

Большое спасибо из 2023 года за ваши уроки)

[lika]

Спасибо за уроки, упустила одну маленькую деталь и все голову ломала, а ларчик просто открывался

[RisenMenn]

Привет!
Спасибо за видео, все супер, продолжай.
Интересно смотреть)

[igorelli]

А куда Вам можно прислать собственное решение?
Отличное объяснение! Спасибо!

[artemkubarev]

Есть такая задача: два компонента Memo туда выводятся данные как real по 12 значений, в одно memo даже не выводятся а просто прописаны значения от 1 до 12 (12 месяцев). Как их вывести в компонент Chart, что бы построить график? Заранее спасибо!

[ZuraevD]

var
i: integer;
begin
for i:=0 to memoPhones.Lines.Count - 1 do
begin
if Pos(editPhone.Text, memoPhones.Lines.Strings[i]) <> 0 then

end;
end;
🥺

[hurricane]

Добрый день. Спасибо за обучающие видео. Есть вопрос по этому решению задачи. Если добавить небольшое дополнение в условие if, а именно:
If nn_simvola > 0 then
mPhones.Lines.Add(stroka) else
Showmessage('Номер не верный');
То сообщение будет появляться даже при совпадении текста в edit и memo. Как тогда правильно выполнить это условие?

[alishertursun]

Здравствуйте, имеет ли смысл учить Delphi в 2020?

[kekands]

Я вот не понимаю, почему в индесах идём с 0 и до последней строки счёт, зачем нам тогда делать -1 . Вот этого не могу понять....

[ОльгаМакаренко-дх]

Здравствуйте, получилось такое решение:
implementation

{$R *.dfm}

procedure TForm1.bPoiskClick(Sender: TObject);
var s, sfr:string;
k, i:integer;
begin
sfr:=eNomer.Text;
for k := 1 to mSpisok.Lines.Count do
begin
s:= mSpisok.Lines.Strings[k-1];
i:=Pos(sfr, s);
if i>0 then mRez.Lines.Add(s);

end;
end;
procedure TForm1.bUdalClick(Sender: TObject);
begin
mRez.Clear;
eNomer.Clear;
eNomer.SetFocus;
end;

end.