pascal

I am pretty new to delphi , and would like to start with something easy . Could someone please show me an example how to make a Digital clock that will transfer the "time" ( hour , min , sec ) to a label ? Or something like that Exercise 1 Drop a TLabel and a TButton on your form. Double-click the button, and write procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := TimeToStr(Time); end; Exercise 2 To get the time to update automatically, add a TTimer to your form, and double-click it (you can remove the button if you like). Then write procedure TForm1.Timer1Timer(Sender:

This is a part of a program that analyzes the odds of poker, specifically Texas Hold'em. I have a program I'm happy with, but it needs some small optimizations to be perfect. I use this type (among others, of course): type T7Cards = array[0..6] of integer; There are two things about this array that may be important when deciding how to sort it: Every item is a value from 0 to 51. No other values are possible. There are no duplicates. Never. With this information, what is the absolutely fastest way to sort this array? I use Delphi, so pascal code would be the best, but I can read C and pseudo,

可以将文章内容翻译成中文,广告屏蔽插件可能会导致该功能失效(如失效，请关闭广告屏蔽插件后再试): 问题: I'm trying to solve a little problem with my hpp unit. I found some examples on the internet showing how to Toast an information on screen with an Android JNI bridge, but it was just in pascal (delphi), so I decided to use the same pas file but with it an hpp file for conversion. Till now I got it: #ifndef Android_Jni_ToastHPP #define Android_Jni_ToastHPP #pragma delphiheader begin #pragma option push #pragma option -w- // All warnings off #pragma option -Vx // Zero-length empty class member #pragma pack(push,8) #include <FMX.Helpers.Android

Does anyone know where I could find code for the "Inverse Error Function?" Freepascal/Delphi would be preferable but C/C++ would be fine too. The TMath/DMath library did not have it :( Here's an implementation of erfinv() . Note that for it to work well, you also need a good implementation of erf() . function erfinv(const y: Double): Double; //rational approx coefficients const a: array [0..3] of Double = ( 0.886226899, -1.645349621, 0.914624893, -0.140543331); b: array [0..3] of Double = (-2.118377725, 1.442710462, -0.329097515, 0.012229801); c: array [0..3] of Double = (-1.970840454, -1

Whats the difference between Object Pascal and Delphi? Are they the same thing? What are the differences and similarities between them and which one is more useful? Object Pascal was an object oriented extension of Pascal developed by Apple. The first version of Delphi was evolved from Turbo Pascal. The object oriented features in Turbo Pascal were, rightly, considered not fit for purpose. So Borland developed Delphi 1 and incorporated much of the Apple Object Pascal language. So the language for the Delphi product was originally named Object Pascal. Apple stopped developing Object Pascal and

I'm looking for a good free scripting engine for Delphi. I want to add scripting to an application so that I can write small test scripts. Specifically I need: Pascal-like syntax current (I looked at RemObjects Pascal Scripting but it is "obsolete" according to a posting I saw). I don't need full language support, just the basics. I saw this: https://stackoverflow.com/questions/226135/scripting-library-for-delphi but I'm assuming things have moved on a little since then. All I want to be able to do is add a memo component to my program, and at run-time add a fragment of source to the memo and

可以将文章内容翻译成中文,广告屏蔽插件可能会导致该功能失效(如失效，请关闭广告屏蔽插件后再试): 问题: Whats the difference between Object Pascal and Delphi? Are they the same thing? What are the differences and similarities between them and which one is more useful? 回答1: Object Pascal was an object oriented extension of Pascal developed by Apple. The first version of Delphi was evolved from Turbo Pascal. The object oriented features in Turbo Pascal were, rightly, considered not fit for purpose. So Borland developed Delphi 1 and incorporated much of the Apple Object Pascal language. So the language for the Delphi product was originally named