Today, I finally found the time to read up on some rather ancient e-mails. One was from Paolo in the dxgettext mailing list about a bug in gnugettext.pas: With SVN revision 75 and the following, AddDomainForResourceString() has no effect, additional translations are not used. Suggested patch: original code from SVN revision 79: [delphi] function TGnuGettextInstance.LoadResString( … Continue reading Getting a good night’s sleep is important
Author: dummzeuch
GExperts Bugfixes
The Unicode issues in GExperts just don't end. Today I fixed three of them: [delphi] procedure bla; begin SomeVar := 3245; // german description with some äöüß to SomeVar SomeVar := 123; SomeQuery.FieldByName('GermanWordWithäöüß').AsString := 'some value'; end; [/delphi] (Yes, I know, this doesn't compile.) Move the cursor to the first occurrence of SomeVar and press … Continue reading GExperts Bugfixes
Access Violation in Delphi 6 or 7 when setting IOTASourceEditor.BlockVisible to True
Note to self: If you get an access violation when setting IOTASourceEditor.BlockVisible to true in Delphi 6 or 7 e.g.: [delphi] procedure GxOtaSelectBlock(const Editor: IOTASourceEditor; const Start, After: TOTACharPos); begin Assert(Assigned(Editor)); Editor.BlockVisible := False; try Editor.BlockType := btNonInclusive; Editor.BlockStart := Start; Editor.BlockAfter := After; finally Editor.BlockVisible := True; // <---- BOOM end; end; [/delphi] Check … Continue reading Access Violation in Delphi 6 or 7 when setting IOTASourceEditor.BlockVisible to True
Delphi XE2 crash when opening the About dialog
Today I had a rather annoying problem with Delphi XE2. I only wanted to change the caption of a TListView column using the Columns Editor (right click -> Columns Editor). The IDE crashed on me with an Access Violation. So, I thought I had broken it again (things like this happen when you are developing … Continue reading Delphi XE2 crash when opening the About dialog
new Seagate Barracuda drives are very slow
Seagate has changed their Barracuda desktop 3,5" 2 and 4 TB drives from using 3 platters to using only 2 while doubling the cache RAM from 128 to 256 MBs. We have been buying this type of drives for various usages, one of them is the 4 TB drive for the backup of our main … Continue reading new Seagate Barracuda drives are very slow
Weihnachtslieder Spickzettel
Es ist jedes Jahr dasselbe, es soll vor der Bescherung gesungen werden und nur wenige kennen den Text. Irgendwie schon peinlich. Deshalb habe ich jetzt endlich eine Maßnahme ergriffen und mir den Text der gebräuchlichsten Lieder zusammengestellt. Sie passen in noch lesbarer Schrift auf eine DIN A4 Seite, wenn man zwei Seiten auf eine druckt … Continue reading Weihnachtslieder Spickzettel
TdzStreamCache class for caching access to any TStream
You might have noticed that I haven't blogged as much as usual and that there have been no recent updates to GExperts either. The reason of course was that I was busy doing other things. Some of them were programming related and one of these was writing a caching class wrapper for TStream descendants (e.g. … Continue reading TdzStreamCache class for caching access to any TStream
Find all subdirectories containing xml files on Linux command line
So I don't forget: The following Linux command shows a list of all subdirectories that contain a least one *.xml file: find . -type f -name '*.xml' | sed -r 's|/[^/]+$||' | sort | uniq This finds all xml files where the extension is all lower case. But since many Windows programs upper case it … Continue reading Find all subdirectories containing xml files on Linux command line
Using PE Flags in Delphi
There was a discussion about using the PE flag IMAGE_FILE_LARGE_ADDRESS_AWARE and whether this is equivalent to compiling a program to 64 bit Windows target (no it's not) in the German Delphi Praxis forum. This prompted me to have a look at what kind of flags can be specified and how to do that for a … Continue reading Using PE Flags in Delphi
Advanced Records in Lazarus / fpc
Note to self: Delphi's Advanced Records are also available in Lazarus / Free Pascal, but only if they have been explicitly enabled with the modeswitch compiler directive: [delphi] unit SomeUnit; {$mode objfpc}{$H+}{$modeswitch advancedrecords} interface type TSomeRecord = record FSomeField: integer; function SomeMethod: integer; end; implementation function TSomeRecord.SomeMethod: integer; begin Result := FSomeField; end; end. [/delphi] … Continue reading Advanced Records in Lazarus / fpc