Recent

Recent Posts

Pages: [1] 2 3 ... 10
1
Databases / Re: MDB: list all tables
« Last post by SymbolicFrank on Today at 09:23:25 pm »
Quote from: Zvoni on Today at 04:13:07 pm
2 ways:
1) GetTableNames returns a TStrings (TStringList). Run through it and remove everything else (hope the naming-schema is clear enough to differentiate)
2) Implement your own "INFORMATION_SCHEMA" -->  create your own Table, where you enter only the Tablenames you're interested in

Since i'm avoiding Access like the devil avoids holy water, i can't give you more info
The one and only thing I (try to) do with them is move the data (tables) to a real SQL database, for the real processing to take place. But the MDB is what I get delivered, so I have to take what I get.

It does work well in Linux (although it tends to bug out every once a while, on Windows as well), but you get no error messages whatsoever, so development has to happen in Windows.
2
Spanish / Re: Crear dll en lazarus para usarla en Delphi, ¿es posible?
« Last post by BlueIcaro on Today at 07:41:01 pm »
Hola, yo nunca he creado una librería, pero buscando algo, encontré estos enlaces, que pueden ser de ayuda
http://delphiaccess.com/foros/index.php/topic/4768-como-crear-una-dll-en-lazarus/
https://www.freepascal.org/docs-html/prog/progse55.html
https://delphidesdecero.com/tutoriales/como-crear-una-dll-en-delphi-parte-1/
Saludos
/BlueIcaro

3
LCL / Re: NBPages in TabControl... what for?
« Last post by polpero on Today at 07:28:59 pm »
Thanks Jamie

I discovered more than expected in your demo

Guess I was going backwards with TCustomPage
(or forward when it had to be dealed backward...
  if this makes any sense)

I've played with it a while
and posting here the results




4
Databases / Re: MDB: list all tables
« Last post by af0815 on Today at 07:21:57 pm »
Quote from: Zvoni on Today at 04:13:07 pm
Since i'm avoiding Access like the devil avoids holy water, ...
+1
You are not alone :-)
5
LCL / Re: Amount in words
« Last post by alpine on Today at 06:43:52 pm »
What KodeZwerg spotted was the immediate error. Even with that corrected, another one will raise with numbers with n*3+1 digits, e.g. 1, 1001.

I'm afraid the approach is wrong - you actually must consider the digits in the given number in a groups of three putting appropriate words for thousands, millions, etc. after them as in the
Quote from: domasz on March 16, 2023, 08:05:58 pm
https://4programmers.net/Delphi/Gotowce/Zapis_s%C5%82owny_liczby

Edit: Same error with the line
Code: Pascal  [Select][+][-]
  1.     else if (i > 3) and (digits[5]<>'') and (StrToInt(digits[5]) = 1) then
  2.         str := str + nastki[StrToInt(digits[4])] + ' ';
  3.  
And Roland57 found that 3 days ago
6
LCL / Re: Amount in words
« Last post by KodeZwerg on Today at 06:26:14 pm »
Quote from: Pe3s on Today at 05:23:53 pm
Please help as I cannot find the error
This (and maybe other lines) in your source are causing trouble.
Code: Pascal  [Select][+][-]
  1.     else if (i > 0) and (digits[2]<>'') and (StrToInt(digits[2]) = 1) then
Why?
Because you check "if i bigger than zero" (i holds the length of a inttostr conversation) straight after you check for an element at a specific position without checking if that position is available at all.

(if app would be in a language that i understand it would be more easy to fix)

quick and dirty fix:
Code: Pascal  [Select][+][-]
  1.     else if (i >= 2) and (digits[2]<>'') and (StrToInt(digits[2]) = 1) then
7
LCL / Re: Amount in words
« Last post by Pe3s on Today at 05:23:53 pm »
Please help as I cannot find the error
8
Beginners / Re: From Linux MX to Windows 10
« Last post by pentilisea on Today at 04:55:07 pm »
Hi Desiligo.

Thanks.
I managed to cross compile my application, so it works on win10 OK.
Just for info this old post helped:

http://lazplanet.blogspot.com/2020/05/cross-compile-on-lazarus.html

I will try your suggestion, but I'm slow.
However the main intention to have win users run my application is solved - still much work to do and without your help
I'll still be guessing around.
Klaus
9
LCL / Re: Amount in words
« Last post by bytebites on Today at 04:36:40 pm »
Proggamming error.
10
FPC development / Re: rtl/inc/objpas.inc procedure InitInterfacePointers observation
« Last post by BrunoK on Today at 04:32:17 pm »
Quote from: BrunoK on Today at 04:25:08 pm
Edit above message  : I meant in procedure TObject.InitInstance(instance : pointer) : tobject; the for loop
Code: Pascal  [Select][+][-]
  1.                        for i:=0 to mopinittable^.Count-1 do
  2.                          TRTTIRecVarOp(mopinittable^.Entries[i].ManagmentOperator)(PByte(Instance)+mopinittable^.Entries[i].FieldOffset);
  3.  
Pages: [1] 2 3 ... 10

TinyPortal © 2005-2018