Ориентируйтесь пока что на VK. Сообщество в VK.com - club114... Telegram - t.me/themrden3d Яндекс.Дзен - zen.yandex.ru/...
Пікірлер: 18
@enderhexfyreeve19002 жыл бұрын
очень жду очередной ролик по шарпу и opengl. надеюсь ютуб еще какое-то время поживет или что лучше - как-нибудь все наладится во всем мире.
@gidofina2 жыл бұрын
Василий Мельниченко: «Не страшно то, что страна в заднице, страшно, что она начала там обустраиваться».
@TheMrDen3D2 жыл бұрын
))) Прорвемся
@legohistory80392 жыл бұрын
Жду новое видео, так как ютуб не закроют!
@bandikuto2 жыл бұрын
Пожалуйста помогите написать программу в Lazarus чтобы при вводе в первое Memo строки, находилась группа с самой большой последовательностью латинских букв, и выводилось во второе Memo наоборот Например из строки " 123218 rtyu we rgui126 " вывелось "uytr"
@TheMrDen3D2 жыл бұрын
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;
@bandikuto2 жыл бұрын
@@TheMrDen3D а для чего там edit? А ещё нет же строчек с Memo2. Мне нужно, чтобы в Memo 1 вводились любые строчки, а в Memo 2 выводилась только та, у которой наибольшее число латинских букв( чистая строка без цифр, он должен среди них находить такую). И написать её наоборот. То есть в строке найти группу, состоющую чисто из букв, а если их несколько, то найти с наибольшим количеством букв
@TheMrDen3D2 жыл бұрын
@@bandikuto у меня из edit бралось, добставь memo1.text, а на вывод уже memo2.text
@bandikuto2 жыл бұрын
@@TheMrDen3D а зачем там строка символов? Mystring которая
@bandikuto2 жыл бұрын
@@TheMrDen3D у меня почему-то просто вся строка выводится в мемо 2, полностью, и не отзеркаливается
@enderhexfyreeve19002 жыл бұрын
так будут ли новые видео?
@TheMrDen3D2 жыл бұрын
Да, планирую, но вот когда оно будет ... ))))))
@TIMSYSTEM2 жыл бұрын
Очень жалко, столько трудов русских ютуберов пошли в небытие из-за политики, которая с нами никак не связана.
@TheMrDen3D2 жыл бұрын
Может все и обернется, подождем - посмотрим.
@milanhub62082 жыл бұрын
Стоит ли учит Лазарус для начинающего ?
@TheMrDen3D2 жыл бұрын
Смотря для чего. Если чтобы и дальше заниматься программированием, то лучше C# + Windows Forms, а потом можно и WPF. Lazarus в основном только в школах и коледжах на первых курсах, так сказать второй шаг после pascal. Так что ели с полного 0, то приступай к изучению C# консольные проекты попиши, язык изучи, а потом переходи на формы
@renveistermanis35462 жыл бұрын
надеюсь у вас всё хорошо, а то 7 месецев никакой весточки от вас?