Что же дальше № 2 ?!

  Рет қаралды 893

TheMrDen3D

TheMrDen3D

Күн бұрын

Ориентируйтесь пока что на VK.
Сообщество в VK.com - club114...
Telegram - t.me/themrden3d
Яндекс.Дзен - zen.yandex.ru/...

Пікірлер: 18
@enderhexfyreeve1900
@enderhexfyreeve1900 2 жыл бұрын
очень жду очередной ролик по шарпу и opengl. надеюсь ютуб еще какое-то время поживет или что лучше - как-нибудь все наладится во всем мире.
@gidofina
@gidofina 2 жыл бұрын
Василий Мельниченко: «Не страшно то, что страна в заднице, страшно, что она начала там обустраиваться».
@TheMrDen3D
@TheMrDen3D 2 жыл бұрын
))) Прорвемся
@legohistory8039
@legohistory8039 2 жыл бұрын
Жду новое видео, так как ютуб не закроют!
@bandikuto
@bandikuto 2 жыл бұрын
Пожалуйста помогите написать программу в Lazarus чтобы при вводе в первое Memo строки, находилась группа с самой большой последовательностью латинских букв, и выводилось во второе Memo наоборот Например из строки " 123218 rtyu we rgui126 " вывелось "uytr"
@TheMrDen3D
@TheMrDen3D 2 жыл бұрын
procedure TForm1.Button1Click(Sender: TObject); var MyString, str: String; Splitted: TStringArray; i, max, imax : Integer; begin MyString := 'word doc txt docxe kk kk oo'; // edit1.Text; Splitted := MyString.Split([' ']) ; max := Splitted[0].Length; Caption:= max.ToString; imax := 0; for i:= 1 to Length(Splitted) - 1 do begin if Splitted[i].Length > max then begin imax := i; max := Splitted[i].Length; end; end; str := Splitted[imax]; for i := Length(str) downto 0 do begin Memo1.Text:= Memo1.Text + str[i]; end; end;
@bandikuto
@bandikuto 2 жыл бұрын
@@TheMrDen3D а для чего там edit? А ещё нет же строчек с Memo2. Мне нужно, чтобы в Memo 1 вводились любые строчки, а в Memo 2 выводилась только та, у которой наибольшее число латинских букв( чистая строка без цифр, он должен среди них находить такую). И написать её наоборот. То есть в строке найти группу, состоющую чисто из букв, а если их несколько, то найти с наибольшим количеством букв
@TheMrDen3D
@TheMrDen3D 2 жыл бұрын
@@bandikuto у меня из edit бралось, добставь memo1.text, а на вывод уже memo2.text
@bandikuto
@bandikuto 2 жыл бұрын
@@TheMrDen3D а зачем там строка символов? Mystring которая
@bandikuto
@bandikuto 2 жыл бұрын
@@TheMrDen3D у меня почему-то просто вся строка выводится в мемо 2, полностью, и не отзеркаливается
@enderhexfyreeve1900
@enderhexfyreeve1900 2 жыл бұрын
так будут ли новые видео?
@TheMrDen3D
@TheMrDen3D 2 жыл бұрын
Да, планирую, но вот когда оно будет ... ))))))
@TIMSYSTEM
@TIMSYSTEM 2 жыл бұрын
Очень жалко, столько трудов русских ютуберов пошли в небытие из-за политики, которая с нами никак не связана.
@TheMrDen3D
@TheMrDen3D 2 жыл бұрын
Может все и обернется, подождем - посмотрим.
@milanhub6208
@milanhub6208 2 жыл бұрын
Стоит ли учит Лазарус для начинающего ?
@TheMrDen3D
@TheMrDen3D 2 жыл бұрын
Смотря для чего. Если чтобы и дальше заниматься программированием, то лучше C# + Windows Forms, а потом можно и WPF. Lazarus в основном только в школах и коледжах на первых курсах, так сказать второй шаг после pascal. Так что ели с полного 0, то приступай к изучению C# консольные проекты попиши, язык изучи, а потом переходи на формы
@renveistermanis3546
@renveistermanis3546 2 жыл бұрын
надеюсь у вас всё хорошо, а то 7 месецев никакой весточки от вас?
Арыстанның айқасы, Тәуіржанның шайқасы!
25:51
QosLike / ҚосЛайк / Косылайық
Рет қаралды 700 М.
Cheerleader Transformation That Left Everyone Speechless! #shorts
00:27
Fabiosa Best Lifehacks
Рет қаралды 16 МЛН
😱Я Добавил Деменцию в Майнкрафт
17:29
[Examples. Lazarus] Game "Galaxian" (Part 1)
18:31
TheMrDen3D
Рет қаралды 4,4 М.
КОТ В ВР СДЕЛАЛ ОРУЖИЕ ( I Am Cat VR )
22:50
perpetuumworld
Рет қаралды 417 М.
[Examples. Lazarus] Game "Galaxian" (part 2)
16:11
TheMrDen3D
Рет қаралды 1,1 М.
Арыстанның айқасы, Тәуіржанның шайқасы!
25:51
QosLike / ҚосЛайк / Косылайық
Рет қаралды 700 М.