finalist

I am trying to migrate from Delphi XE to Delphi XE7, so I opened my Delphi XE - project, but it can not bi compiled, because Delphi XE7 does not recognize IBDatabase, IBCustomDataSet, IBQuery, IBStoredProc. How to solve this problem ?

Anyone know how to avoid this error - message on compiling my program using Delphi XE5: Undeclared identifier: 'DateSeparator' When I compile the same program using Delphi XE, it is OK, without any errors. I have declared: uses SysUtils ....;

I know about two IDE's, each one uses some variant of Pascal: 1. Delphi (Embarcadero Delphi XE) - uses a Borland Pascal language; 2. Lazarus - uses a Free Pascal language - ( Lazarus is FREE).

I need Delphi 2011 XE code for editing an Excel file. If there is found a text in a row of column A of the Excel file, to change the number of the same row in column B. That's all I need. Thanks!

There is in Delphi a type of data [B]TStringList[/B] .... It is very easy to manage a text file using an instance of [B]TStringList[/B] .... But I don't know about Pascal supports [B]TStringList[/B] or not ?

The next code works for all HDD Volumes in my Computer: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; …

I am an absolute beginner with Linux. I did install UBUNTU 10.04 = great, but every time I try to run Lazarus it raises a message: '"/usr/share/fpcsrc/2.4.0/" does not look correct' How to solve this ? Thank you !

I need some Free & Easy Linux Distributions for: 1. Skype; 2. Lazarus Free Pascal + Firebird; 3. Some Linux Application to work using Autocad files [B].dwg[/B]; Is it possible to install them on a USB HDD 320 Gb ? How many independent Linux Distributions can I istall on USB …

Dear [B]turbomen[/B], [CODE]program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; // Application.MainFormOnTaskbar := True; { under Delphi 7 this is a wrong code line } Application.CreateForm(TForm1, Form1); Application.Run; end.[/CODE] [CODE]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ExtCtrls, jpeg; …

The method: [CODE] procedure TForm1.Button1Click(Sender: TObject); var sum, average: integer; begin sum:=StrToInt(Edit1.Text)+StrToInt(Edit2.Text)+StrToInt(Edit3.Text) +StrToInt(Edit4.Text)+StrToInt(Edit5.Text); average:=sum div 5; Edit6.Text:=IntToStr(sum); Edit7.Text:=IntToStr(average); end; [/CODE] must to be attached to the Button1's Event [B]OnCLick[/B], othrwise it does not work ....

[CODE]unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Image1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); var count: integer; begin …

[QUOTE=Singlem;1137515]Using a dbexpress component to connect to a mysql DB. If I want to commands like Insert, Delete and UPDATE I use a query. The question is How can I let the user Write the commands into a Richedit or Memo, what ever is the best. And then load those …

Hi, I could tell you how to start to VCL Forms Application using Delphi7: You have to use menu: - File - New - Application Delphi will open a new [B]Unit1.pas[/B] and a new [B]Form1[/B] .... Unit1 will contain all the methods about Form1. You may drop VCL-components from the …

You can make whole string grid Disabled for Editing .... Below is a small example how to change Enable/Disble Editing of the StringGrid1:[CODE] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; CheckBox_StringGrid_Enable: TCheckBox; procedure CheckBox_StringGrid_EnableClick(Sender: TObject); private …

You have to change Edit1's Property PasswordChar to [B]*[/B] [CODE] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation …

Try the following code: [CODE]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm_bookvisit = class(TForm) PgCtrl_bookvisit: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; Button_nextandbook: TButton; Memo1: TMemo; // Placed on the Form outside the PageControl Label1: TLabel; // Placed on the TabSheet1 …

If you know SQL = Structured Query Language you may use a Query Component ( instead of Table Component ) .... a Query would be something like that : [b] UPDATE table_name SET column1=value, column2=value2,... WHERE some_column=some_value [/b] You may learn about the UPDATE sql statement at: [U][url]http://www.w3schools.com/Sql/sql_update.asp[/url][/U] or [U][url]http://www.sql-tutorial.net/SQL-UPDATE.asp[/url][/U]

I don't find any mistake in your code .... It works fine compiled by Delphi 7, no problems at all .... [CODE] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); …

1. At design time you may clear the Edit1 text from the Property Text 2. At runtime you may execute: Edit1.Text := '';

1. If raises an exception between [b]try[/b] .... [b]except[/b] will be executed [b]only[/b] statements between [b]except[/b] .... [b]end[/b]; 2. If does not raise any exception between [b]try[/b] .... [b]except[/b] it will [b]NOT[/b] be executed statements between [b]except[/b] .... [b]end[/b];

[CODE] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask; type TForm1 = class(TForm) MaskEdit1: TMaskEdit; Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function IsDateCorrect(S: string; var …

[b]sfp[/b], there is more than one way .... 1. When Form2 is an autocreate Form ( Delphi Application automatically creates the Form at the start ot the Application ) : In this case it is enough to Show the Form2, without create it, because it is already created: 1.1. [code]Form2.Show;[/code] …

[code] program remove_pound; {$APPTYPE CONSOLE} uses SysUtils; var I: Integer; P: Char; S: string; begin P := Chr(156); Writeln('Please enter an amount of money: '); Readln(S); I := Pos(P, S); if (I>0) then Delete(S, I, 1); Writeln('Amount of money: ' + S); Readln; end. [/code]

I did not find any error in your code above .... Below is a variant of your program, because Delphi 7 doe not work with ClrScr: [code] program checklength; {$APPTYPE CONSOLE} uses SysUtils; var R: Real; S: string[9]; begin R := 0; //Clrscr; Write('Please enter your the Length: '); Readln(S); …

You may try using: [code] ForceDirectories(name); [/code]

Below is an example for EncodeDate() and EncodeTime() functions: [code] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Edit2: TEdit; Edit3: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; …

[b]Dawiss[/b], are you agree about: Form1 to ask for the password and if password is correct on pressing a Button1 to show Form2 ? ( The reason is that usualy Form1 is the main form of the Application and when the Main Form closes it closes the Application. I think …

[b]ipage[/b], the code does not prompt any error at all for my D7.

[QUOTE=especta;1094928]hi How to allow enter only 5 char in Tedit without using tmask? Thanks.[/QUOTE] [code] procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var T: string; begin T := Edit1.Text; if (Length(T)>4) and (Key<>#8) then Key := #0; end; [/code] Key=#8 allows to be used BACKSPACE

[code]procedure Search_MP3_File(PathName: string; SL: TStringList); var Found: Integer; Attr: Integer; I: Integer; S: string; T: string; FName: string; DirName: string; SearchRec: TSearchRec; begin Attr := faDirectory; Found := FindFirst(PathName+'*.*', Attr, SearchRec); while (Found=0) do try if (((FileGetAttr(SearchRec.Name) and faArchive) > 0) or ((FileGetAttr(SearchRec.Name) and faAnyFile) > 0)) then begin FName …

Hi [b]fayyaz[/b], There is no property DefaultRowHeight for DBGrid like for StringGrid so, I think the Height of the Row in DBGrid depends on the [b]Font Size[/b] .... When you select property - Font Size 10 instead of old Size 8 your DBGdid will show biger Height of Rows and …

I have a symmetrical matrix [B]A[/B] 8 x 8. First I need to find matrix [B]B[/B] = [B]A[/B][sup]T[/sup]*[B]A[/B]; Next I need to inverse B and find [B]C[/B] = [B]B[/B][sup]-1[/sup]; Help please !

[code] procedure TForm1.Button1Click(Sender: TObject); begin Visible := False; // Makes Form1 invisible try Form2.ShowModal; // Shows the Form2 finally Visible := True; // Makes Form1 visible again end; end; [/code]

Name: Emil Online Handle: finalist Nickname: Emo Height: 179 cm Weight: 100 kg Hair: Gray Eyes: Brown Location: Bulgaria Age: 55 Hobbies: Programming by Lazarus (Free Pascal). Status: Single Favorite Music: Rihanna, Beyonce, Pink Floyd .... Education: Surveyor (Master - University of Architecture, Civil Engineering and Geodesy) Work: just now …