วีดีโอ

Hi, one question. How can you avoid that the log file can be bigger and bigger?.

Hello, if you want to add the name of the routine. You can use WriteLn('Name is: ', {$I %CURRENTROUTINE%}

Let me know how you use logging in your projects or what you'd like to see in Part 2.

Reminds me a lot of VB's: Dim result As String = IIf(x > 10, "Greater than 10", "Less than or equal to 10")

Don't forget to save the added project to the project group. It does not seem to occur automatically.

I love Lazarus but its syntax highlighting is really weak compared to visual studio.

How to use GLscene with Lazarus please?

Where did you find the PDF documentation on the Devart site...I have been looking for this for years ?

You can fold any lines, by making a selection. Or you can have two (or more) views of either the same unit or different unit next to each other (right to left)

you can also right click the object inspector, and set your own favourite properties which will then be in the "favourites" tab

why do you like pascal of all languages? is it used for anything these days?

Nice stuff.

Tutorials to learn Lazarus IDE and coding from scratch please also android Apps.. thank you

Linux has been my work operating system for a long time, Objec Pascal Lazarus on Linux has tremendously increased my productivity in my automation projects even more with the cross compiler for other platforms. I recommend. Success my dear and thank you for the article.

Thanks for good news. I will update my lazarus

Have you tried Lazarus 4.0 RC2 yet? What are your thoughts?"

What’s your biggest challenge with handling exceptions? Let me know in the comments! Also, don't forget to check out my other videos on Pascal programming :)

Can you write an application server which can connect to multiple database engines and transfer/receive data from desktop clients in lazarus.

Hi Sir! I just wonder about the possibility of getting a job with Pascal language nowadays?

Thanks! Installing Android Studio and redoing the links in Delphi seemed to fix the problem for me.

I just tried this in Dart and it has the same behavior. Any function, even bare functions or ones in classes with no inheritance have access to private methods/members/properties of classes defined in the same file. I don't think about the private members that way and wouldn't use them that way but that is interesting.

Sorry about the audio in this video. Not sure what I screwed up... and testing a new mic out.

Sounds like you have some great content planned (looking forward to it)! Your audio in this video seemed 'off'. I'm not an audio person so I can't explain it technically.

I'm a longtime user of Delphi but I stopped about 6-8 years ago. I'm now gearing up to start development again and need to know what are the better component libraries and other tools that are currently being used. I used to depend on CodeSite. Also Indy components. Before that Turbopower libraries. Those are the types of things I'm looking for. I hear that TMS has a great suite of products, but a survey of what it popular and dependable would be really helpful.

Hi, I would like, if you talk about observers class. I'm sure if this the correct name. When a object changes one property, for example, other object gets a notification.

What do you think about the differences between private and strict private? Let's discuss! Don’t forget to share this with your fellow Pascal programmers. 😊

Thanks. your explanation is easy to understand

Hi, if you make double click, in the editor code, where you can read the full path and name of the file, will open a terminal window in that folder.

Hi there, For the sake of clearly showing the code please close the "messages, watches, search results" windows at the bottom of the edit window. It will make it easier to follow the code when viewing the video. thanks.

Nice stuff. Would be nice explain the TFileStream object also.

I hope If you can assist in adding a content for OOP In Delphi or object Pascal Thanks in advance for this valuable content you are providing ❤

Thanks sir

With Lazarus: program Hangman; uses SysUtils; const MaxIncorrectGuesses = 6; function FindWordToGuess: string; var Words: array[1..10] of string; WordIdx: integer; begin Words[1] := 'Gato'; Words[2] := 'Seis'; Words[3] := 'Koala'; Words[4] := 'Sol'; Words[5] := 'Quebra'; Words[6] := 'Forca'; Words[7] := 'Flor'; Words[8] := 'Jogo'; Words[9] := 'Pascal'; Words[10] := 'Habita'; Randomize; WordIdx := Random(6) + 1; Result := UpperCase(Words[WordIdx]); end; procedure DrawHangman (Wrongs: integer); {draw a gallow and an increasing hangman on wrong guesses} var Members: array[1..6] of string; I: integer; begin Members[1] := '| o '; Members[2] := '| /'; Members[3] := '|'; Members[4] := '\'; Members[5] := '| / '; Members[6] := '\'; Writeln('____'); Writeln('| |'); if Wrongs <> 0 then begin if Wrongs >= 1 then Writeln(Members[1]); if Wrongs >= 2 then Write(Members[2]); if Wrongs >= 3 then Write(Members[3]); if Wrongs >= 4 then Writeln(Members[4]); if Wrongs >= 5 then Write(Members[5]); if Wrongs >= 6 then Writeln(Members[6]); end; Writeln; end; function StringContains(const S: string; C: char): Boolean; {searches string S for character C} var I: integer; begin for I := 1 to Length(S) do if S[I] = C then Exit(True); Result := False; end; procedure PlayGame; var SecretWord: string; {word to guess} YourWord: string; {word based on user guesses} AllLetters: string; {letters guessed by player} Guess: char; {players next guess} GuessesLeft: integer; {number of guesses left} WrongLetters: integer; {number of wrong letters guessed, to build the hangman} I: integer; UpdateCount: integer; {number of letters replaced in the word, based on guess} begin GuessesLeft := MaxIncorrectGuesses; Writeln('Welcome to the Hangman game!'); Writeln('You have ', GuessesLeft, ' tries to guess the word before hanging'); Writeln('Each time you guess incorrectly, you take another step into the gallows.'); DrawHangman(WrongLetters); SecretWord := FindWordToGuess; WrongLetters := 0; for I := 1 to Length(SecretWord) do YourWord := YourWord + '.'; Randomize; {place one hint letter in a random position of the secret word} I := Random(Length(SecretWord)) + 1; YourWord[I] := SecretWord[I]; repeat {display game state information} Writeln('Word: ', YourWord, ' | Guesses left: ', GuessesLeft, ' | Letters used: ', AllLetters); Writeln('Enter a letter:'); ReadLn(Guess); Guess := UpCase(Guess); if not (Guess in ['A'..'Z']) then WriteLn('Invalid input. Please enter a letter (A-Z).') else if StringContains(AllLetters, Guess) then Writeln('Doh! You have already tried that letter.') else begin UpdateCount := 0; AllLetters := AllLetters + Guess; for I := 1 to Length(SecretWord) do if SecretWord[I] = Guess then begin YourWord[I] := Guess; Inc(UpdateCount); end; if UpdateCount = 0 then begin Dec(GuessesLeft); Inc(WrongLetters); Writeln('Sorry! Wrong guess'); DrawHangman(WrongLetters); end end; until (GuessesLeft = 0) or (YourWord = SecretWord); if GuessesLeft > 0 then WriteLn('Congratulations! You guessed the word: ', SecretWord) else begin WriteLn('Game Over! The word was: ', SecretWord); WriteLn('You are now hanging out to dry!'); end; end; begin try PlayGame; ReadLn; { TODO -oUser -cConsole Main : Insert code here secret word := find word to guess show one hint letter at a random position loop: ask the user to guess a letter enter a letter does this letter appear in the word if yes then replace all occurrences else increment a guess counter and build a hanging man in parts until word guessed or number of tries >= max tries } except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.

Excellent content. Master, I follow your videos and I tell other colleagues who are programmers here in Brazil that there are more people out there who master Object Pascal (Lazarus) with interesting content. Thank you Master for this successful content.

You can just click with the right mouse button on the source editor tab and on "Clone to New Window" and voila..., of course it is little buggy as all in pascal.

If only Lazarus had a package for Vim key bindings, that would make it the best IDE on the planet.

Thank you for making these videos.

Very informative video. I knew that some of these tools would exist, but never looked into it. Syncro Edit sounds like a tool I could use a lot really. Unfortunately I don't see these tools mentioned very often, so I could imagine that many are not aware of these

Pick up the pace brother

Excellent video was really helpful .I hope to see some more tutorials for pascal and databases 😊

How did you make Lazarus dark?

I use pascal object to create very big projects, about 22 milion lines code and is fantastic. I'm used with C, C++, C#, Java and Python and trust me object pascal is the more productive (alogorithm -> code lines) language inferior only to Python as required code lines. Usually I use Delphi but for Linux target I use Lazarus which has a very good cross-compling system.

Perhaps you could consider making an Object Pascal tutorial, teaching Pascal one video at a time :)

Hello Professor, just like you, I am a Pascal enthusiast and I defend it here in Brazil in Pascal groups showing its application with modern technologies such as ARDUINO, RASPPERY PI and other languages ​​such as Python, Json. I've known Lazarus for 5 years and I'm surprised at how much it is evolving in relation to new technologies such as Generic, MVC, countless others. Here in Brazil, the community has developed many solutions using Lazarus to serve the trade with components such as ACBr, FortesReports, and other RestDataware(RDW) Horse and finally now with IW IntraWeb and D2Brigd for the Web, as well as other solutions that each programmer leaves in your GIT.

hi @silvercoder70 i was wondering if you could share some books that you found helpful in learning pascal / lazarus. thanks

Jesus christ dude, this is not the type of video to introduce random graphics like the explosion. You have a nice calm and relaxed demeanor and then boom and explosion in my ears.

Look up what a lip smack is and stop starting your videos with them! Don't mean to be harsh just honest.

A real cool tool.