As ever so often Zarco Gajic has a solution: Capture the output from a DOS (command/console) Window. This is a copy from his article for future reference: The example runs ‘chkdsk.exe c:\’ and displays the output to Memo1. Put a TMemo (Memo1) and a TButton (Button1) on your form. Put this code in the OnCLick … Read more
Your settings in the .dfm file will be scaled up correctly, so long as Scaled is True. If you are setting dimensions in code then you need to scale them by Screen.PixelsPerInch divided by Form.PixelsPerInch. Use MulDiv to do this. function TMyForm.ScaleDimension(const X: Integer): Integer; begin Result := MulDiv(X, Screen.PixelsPerInch, PixelsPerInch); end; This is what … Read more
As Jon first suggested, you can try creating a mutex. Call CreateMutex. If you get a non-null handle back, then call GetLastError. It will tell you whether you were the one who created the mutex or whether the mutex was already open before (Error_Already_Exists). Note that it is not necessary to acquire ownership of the … Read more
Once again, DisableAlign and EnableAlign to the rescue: procedure TForm1.FormCreate(Sender: TObject); var I: Integer; P: TPanel; begin DisableAlign; try for I := 0 to 4 do begin P := TPanel.Create(Self); P.Caption := IntToStr(I); P.Align := alTop; P.Parent := Self; end; finally EnableAlign; end; end; Explanation: When alignment is enabled, every single addition of a control … Read more
The biggest danger of with, outside of pathological conditions like “with A, B, C, D” is that your code can silently change meaning with no notice to you. Consider this example: with TFoo.Create try Bar := Baz; DoSomething(); finally Free; end; You write this code knowing that Bar is a property of TFoo, and Baz … Read more
Update for 10.4 Delphi 10.4 Sydney unified memory management across all platforms and removed ARC compiler. In other words, all platforms now follow the same memory management rules as the Windows platform. DisposeOf vs Free in classic (non ARC) compiler DisposeOf on classic compiler calls Free and functionally behaves the same DisposeOf is left for … Read more
It means your code is accessing some part of the memory it isn’t allowed to. That usually means you have a pointer or object reference pointing to the wrong memory. Maybe because it is not initialized or is already released. Use a debugger, like Delphi. It will tell you on what line of code the … Read more
you can use the TStrings.DelimitedText property for split an string check this sample program Project28; {$APPTYPE CONSOLE} uses Classes, SysUtils; procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings) ; begin ListOfStrings.Clear; ListOfStrings.Delimiter := Delimiter; ListOfStrings.StrictDelimiter := True; // Requires D2006 or newer. ListOfStrings.DelimitedText := Str; end; var OutPutList: TStringList; begin OutPutList := TStringList.Create; try Split(‘:’, ‘word:doc,txt,docx’, … Read more
A ‘simple sample redesign’ per my comment follows. unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const NUM_TRIANGLES = 10; COLORS: array[0..12] of integer = (clRed, clGreen, clBlue, clYellow, clFuchsia, clLime, clGray, clSilver, clBlack, clMaroon, clNavy, clSkyBlue, clMoneyGreen); type TTriangle = record X, Y: integer; // bottom-left corner Base, Height: … Read more
You have to match every begin with an end at the same level, like if Condition then begin DoSomething; end else begin DoADifferentThing; end; You can shorten the number of lines used without affecting the placement, if you prefer. (The above might be easier when you’re first getting used to the syntax, though.) if Condition … Read more