Jump to content

biloia

Members
  • Posts

    14
  • Joined

  • Last visited

Posts posted by biloia

  1. I did the installation as instructed on the website. installation everything worked. more time that I try to run any project this message appears. my windows 8

  2. Boa tarde a Todos !!!

     

    estou tentando instalar o Unigui no Delphi X3, ate ai tudo bem mais na hora de compilar o projeto aparece esta mensagem de erro:

     

    Alguém poderia me ajudar ???

    post-734-0-90243500-1367866878_thumb.jpg

  3. Yes I am using this example

    I made the application in Delphi 2010 and Firebird 2.5 database

    and the same error keeps popping up

    I apologize for both errors of English, I am Brazilian and my English and terrible

  4. Zilav I had done so ServerModule.CustomFiles

    js / jquery.min.js

    js/jquery.maskedinput-1.3.min.js

    js / jquery.numberMask.js

     

    longer works locally on the server that message appears

  5. good day

    and a small application receipt in this application I use masks for numeric fields and also to date.

    I used an example right here in the forum, but when I run the system give this error

  6. Good morning!

    In Delphi I use this routine to make an edit to the same bank ATMs.

    TForm1.Edit1KeyPress procedure (Sender: TObject; var Key: Char);

    begin

    if not (Key in ['0 '.. '9', # 8, # 9]) then

    key: = # 0;

    / / Function to position the cursor always on the right

    Edit1.SelStart: Length = (Edit1.Text);

    end;

     

    then the change type well

     

    var

    s: string;

    v: double;

    I: integer;

    begin

    / / Step 1: If the edit is empty, nothing can be done.

    If (= Edit1.Text emptystr) then

    Edit1.Text: = '0, 00 ';

     

    / / Step 2: get the text edit WITHOUT a comma and WITHOUT the decimal point:

    s: ='';

    for I: length = 1 to (Edit1.Text) of

    if (Edit1.Text in ['0 '.. '9']) then

    s: = s + Edit1.Text ;

     

    / / Step 3: make edit the contents of the present two decimal places:

    v: = strtofloat (s);

    v: = (v / 100) / / to create two decimal places

     

    / / Step 4: Format of the value (V) for accepting values ​​of the type 0.10.

    Edit1.Text: FormatFloat = ('# # #, # # 0.00', v);

    edit1.SelStart: = 0;

    end;

     

    is how to do this uniedit???

×
×
  • Create New...