Скачать с ютуб видео Delphi10 урок по ООП, работа с TStringList, Memo и ShowMessage

Не удается загрузить Youtube-плеер. Проверьте блокировку Youtube в вашей сети.
Повторяем попытку...

Скачать видео с ютуб по ссылке или смотреть без блокировок на сайте: Delphi10 урок по ООП, работа с TStringList, Memo и ShowMessage в качестве 4k

У нас вы можете посмотреть бесплатно Delphi10 урок по ООП, работа с TStringList, Memo и ShowMessage или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:

Информация по загрузке:

Скачать mp3 с ютуба отдельным файлом. Бесплатный рингтон Delphi10 урок по ООП, работа с TStringList, Memo и ShowMessage в формате MP3:

Если кнопки скачивания не загрузились НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу страницы.
Спасибо за использование сервиса ClipSaver.ru

Delphi10 урок по ООП, работа с TStringList, Memo и ShowMessage

var Form1: TForm1; s: TStringList; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Clear; s.Destroy; s:=nil; if s=nil then Button1.Enabled:=false; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if s //угловые скобки (не равно) - ютуб ругается nil then s.Destroy; end; procedure TForm1.FormCreate(Sender: TObject); begin s:= TStringList.Create; s.Add('text'); s.Add('text2'); Application.Title:='Text ShowMessage'; ShowMessage(s.Text); Memo1.Clear; Memo1.Lines.Add(s.Text); end; end.

Comments