I have a 3 character fkLookup field sat_site in a table. I'm using TAdsTable table component. When I filter out records in my grid on a field sat_site, grid does not show any records. With ShowMessage() I check the value of field sat_site which shows blanks or boxes in the message pop-up. Following is my source code: procedure TfrmMain.tblSaturdayFilterRecord(DataSet: TDataSet; var Accept: Boolean); begin if frmSatOffDays.Edit7.Text <> '' then begin ShowMessage(tblSaturday.FieldByName('SAT_SITE').AsString); // checking value if (DataSet['sat_month']= frmSatOffDays.Edit9.Text) and (tblSaturday.FieldByName('SAT_SITE').AsString = frmSatOffDays.Edit7.Text) then begin Accept := True; end else begin Accept := False; end; end else begin if tblSaturday.FieldByName('sat_month').AsString = frmSatOffDays.Edit9.Text …

Member Avatar
Member Avatar
+0 forum 2

I have 5 date fields in a table. I want to place CheckBoxes against each date field to allow user to check the appropriate date for the employee's weekly holiday. I do not have boolean fields in the table. How can I place CheckBox against each date cell in a dbGrid? Thanks.

Member Avatar
Member Avatar
+0 forum 2

Greetings, I used to write software in the days of Pascal, and since then have moved into other IT areas. I am returning to the programming world but since I was last there, an explosion of languages, frameworks, methodologies, etc, have taken place. Could anyone point me in the best direction to start my journery (language(s), IDE(s), etc)?

Member Avatar
Member Avatar
+0 forum 1

Can anyone help me out with abit of code that will detect the location of any exe file on a hard drive / cd? am trying to build a simple exe launcher thanks.

Member Avatar
Member Avatar
+0 forum 4

I'm having an issue using the ADO.Locate function (Using Delphi 7). I've got the following code: procedure TFrmMain.RzBtnProcessClick(Sender: TObject); var WB: IXLSWorkbook; WS: IXLSWorksheet; X: Integer; MillStyle: Integer; KnitNo: Integer; CustSKU: String; begin if RzBtnEditInputFile.Text = '' then Application.MessageBox('You Must Select An Input File!','Error',MB_OK) else if not FileExists(RzBtnEditInputFile.Text) then Application.MessageBox('Cannot Locate Input File! Please Select A Valid File!','Error',MB_OK) else begin FrmInfo.RzLblInfo.Caption:='Opening AS/400 Connection...'; FrmInfo.Show; FrmInfo.Refresh; ADOCnx400.Open; ADOTblPRICEP.Open; FrmInfo.RzLblInfo.Caption:='Opening Spreadsheet...'; FrmInfo.Refresh; WB:=TXLSWorkbook.Create; WB.Open(RzBtnEditInputFile.Text); WS:=WB.WorkSheets[1]; FrmInfo.RzLblInfo.Caption:='Processing...'; FrmInfo.Refresh; for X:=2 to WS.UsedRange.Rows.Count do begin if not VarIsNull(WS.Cells[X,3].Value) then begin MillStyle:=WS.Cells[X,2].Value; KnitNo:=WS.Cells[X,3].Value; SiMain.LogInteger('MillStyle',MillStyle); SiMain.LogInteger('KnitNo',KnitNo); ADOTblPRICEP.First; if ADOTblPRICEP.Locate('DHMSTY;DHKNIT',VarArrayOf([MillStyle,KnitNo]),[]) then begin CustSKU:=ADOTblPRICEP.FieldByName('DHCSTY').AsString; SiMain.LogInteger('RecNo',ADOTblPRICEP.RecNo); SiMain.LogMessage('** FOUND **'); …

Member Avatar
Member Avatar
+0 forum 5

I need to o an assignment where i make two programs, one to write a list of players in a team and their scores, the other to read and search the .dat file for specific players. i have chosen to do this with an array but when i run my 1st program after i enter my first players score i get an exitcode 201. Im not sure what to do and im running out of time. My Code Program TeamWrite; Var FName : String; UserFile : Text; Players : array[1..10] of string; Score : array[1..10] of integer; List1: Integer; List2: …

Member Avatar
Member Avatar
+0 forum 1

I am attempting to write a Hangman game using OOP. I have it done using procedural programming. I am not looking to make it a two person game yet. What Objects and methods would you all use? I was thinking newWord = class(tObject) word : string, definition : string, typeOfSpeach : string, function setWords : wordString; function setDefination : wordString // need 4 other definations, plus the correct one function setTypeOfSpeach; It will be getting words and definitions form a 5000 text file. I am also having issues with the same letter being able to be pressed, I suspect that …

Member Avatar
Member Avatar
+0 forum 4

Ok here what am trying to do, when its scrolling left, I want to get the full length of the lblmarquee caption and then when it scrolls to the end of the last letter or caption it will then auto change to right scroll and then back to left so on, so it bouncing left and right. txt := lblMarquee.Caption; if rgDirection.ItemIndex = 0 then //left lblMarquee.Caption := Copy(txt, 2, length(txt)-1) + Copy(txt,1,1) else //right lblMarquee.Caption := Copy(txt,length(txt)-1,1) + Copy(txt, 1, length(txt)-1); any one got idea ideas thanks alot

Member Avatar
Member Avatar
+0 forum 1

Am trying to read a URL address something like http://www.myaddress.com/id=563?name=mark from the Embedded Web Browser then I want to be able to get the url parameters of a link with in my delphi application, so am able to do a messagve box like: ShowMessage(id); // this would show 563 ShowMessage(name); // this would show mark anyone got any ideas? Thanks

Member Avatar
Member Avatar
+0 forum 1

is there any delphi dis assembler available?

Member Avatar
Member Avatar
+0 forum 2

Following code below should reconnect my audio server if it was found to be disconnected now all is good the timer event is called and the system message shows its reconnecting however it seams the connect procedure fails to be called as it dont reconnect. procedure TGizletView.AudioConTimerTimer(Sender: TObject); begin AudioConTimer.Enabled := False; AddSystemMessage('Reconnecting to MCP...', SFontDialog); ConnectToAudioServer('ADDR', 'PORT', 'PASSWORD'); end; code below is were it fails. procedure TGizletView.ConnectToAudioServer(const IP, Port, Key: String); begin AudioClient.srvMasterkey := Key; AudioClient.connect(UserID, RoomID, IP, Port); end; it seams it not able to be called yet if I do same code as a tbutton it would …

Member Avatar
Member Avatar
+0 forum 1

I'm trying to make a program that solvas a linear system Ax =b with a n x n symmetric matriz and a n x 1 vector by gaussian elimination with partial pivotization. The program must search for the pivot element in each column. If the pivot isn't placed in the main diagonal, the program change this line for the line that has the pivot. And it solves the system by gaussian elimination. I tried this algorithm but it works mainly for 2x2 and 3x3 matrices (it must work for n x n). My program is changing some whole lines in …

Member Avatar
Member Avatar
+0 forum 3

Am having a awful time trying to get this to work I googled it and even asked few friends about it, but it seams it more difficult than I expected it to be. basicly what am trying to do is capture if or when a user clicks on a button within a html page as follows: <button type="button">Click Me!</button> then for my program to reacte by showing a dialog such as good old Hello World message, but it seamns to be very difficult indeed and when I googled there is help on how to make a normal TButton press a …

Member Avatar
Member Avatar
+0 forum 2

Hi, I'm doing some sort of programming with Delphi XE3. I build some sort of multidimensional array (say it 500x500). My question is, is it possible to delete a row (or some rows), or a column (or some columns) of those array so that I can achieve the smaller size of array than my previous one? Thank you very much for your help.

Member Avatar
Member Avatar
+0 forum 1

Im writing a program that keeps track of a bussiness/banks loans and also shows results of the payments recieved and payments not recieved. basicly it's just a program for loans. i need a name and logo for it, any ideas?

Member Avatar
Member Avatar
+0 forum 5

I have a small issue with following code am inserting a new room into mysql using query and then I want it to auto join the room once its made but the problem is when room is in process of being made it will call the GoTo procedure and it will fail is there any way to slow this down safely with out using sleep or is thee away to execute procedure once query has finished. procedure TListingServer.BuildRoom(const RoomName, LobbyName, RoomComment, RoomURL, RoomPassword, MinPlayers, MaxPlayers: string; rSocket: TWSocketClient); var ReplacedRoomName, ReplacedRoomComment, ReplacedRoomPassword: String; MyLobbyQuery: TMyQuery; MyRoomQuery: TMyQuery; aRoomURL: String; begin …

Member Avatar
Member Avatar
+0 forum 2

Hello guy, is here someone who can help me with programme about Gauss or Gauss Jordan elimination? I need it for calculating of system with linear equations. Thank you

Member Avatar
Member Avatar
+0 forum 6

Hello, I have to make an MP3 player that can work on 3 different ways. - You click, it plays, you click again, it pauses - You hold down the mouse, it plays, you release the mouse, it pauses - A timer, you can set up a timer to pause it up to 60 seconds, with a scrollbar or something appearing to select a amount of seconds to play until it pauses. I figured I can do the playing options in a groupbox but I have no idea how to do any of this. Also, I'm not supposed to use …

Member Avatar
Member Avatar
+0 forum 7

I am using delphi 2010 in WinXP. In C# and Java there are Normalizer function. It can transform letters with diacritics into ASCII (remove those accent marks). I do not know if there is Normalizer in delphi. What I am testing is below, but failed. I do not know how to solve it. I am using the [NormalizeString](https://msdn.microsoft.com/en-us/library/windows/desktop/dd319093(v=vs.85).aspx) Test for stripping accents aáeéiíoóöuúü AÁEÉIÍOÓÖUÚÜ --> aaeeiiooouuu AAEEIIOOOUUU Type ... const NormalizationD=2; var Form1: TForm1; implementation {$R *.dfm} function NormalizeString(NormForm: Integer; lpSrcString: LPCWSTR; cwSrcLength: Integer; lpDstString: LPWSTR; cwDstLength: Integer): Integer; stdcall; external 'C:\WINDOWS\system32\normaliz.dll'; function NormalizeText(Str: string): string; var nLength: integer; c: …

Member Avatar
Member Avatar
+0 forum 7

Hi, I have developed a program in Delphy 2007, which shows .AVI files. Now I want to run MP4 files as well, but cannot achieve it. TMediaPlayer does not recognize the format by its extension. Is there an other player available or an upgrade for the one that came with my D2007?

Member Avatar
Member Avatar
+0 forum 2

I have a backup program that used to work reasonably well. It used copyfileex to copy files from one unix machine to another. Recently it has been maxing out at about 5Mb/s So I changed to SHFileOperation and found it averages about 80Mb/s This is using delphi 7 on windows 7.

Member Avatar
Member Avatar
+0 forum 2

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 ?

Member Avatar
Member Avatar
+0 forum 3

Has anyone used overbyte for streaming in their applications before am looking for a demo or a pre made source/advice so I can add it to my app. Cheers

Member Avatar
+0 forum 0

Does anyone have experience in translating finished desktop Delphi 7 applications in web applications

Member Avatar
Member Avatar
+0 forum 1

Am currenrtly working on a voice chat system using lakeofsoft VCL package for audio processing but am wanting to expand my program to mobile phones soon but am unable to use lakeofsoft VCL package in delphi xe7 due to the age of it and no updates so am wondering what are the best options for offering audio chat free or paid in my applications ?? I know i can use speex codec but am more interested in how to process the microphone audio feed into socket so on. Cheers

Member Avatar
+0 forum 0

What are local variables and global variables?

Member Avatar
Member Avatar
+0 forum 3

I'm studying for a test and appreciate your help. How to calculate the running time (T(n)) of the following segment (written in Pascal): k := 0; m := n; while m <= n do begin k := k + 1; m := k * k; end; for i := 1 to k do for j := i to k do begin s := s + m; m := m - 1; end;

Member Avatar
Member Avatar
+0 forum 1

Gives me the error on the line :while costumepmt <> 7777 AND revname <> 'qqqq' do, I really don't know what to do, please help, thanks in advance! Program revelers_info; uses wincrt; var revnames, busybodies, summerbodies, readybodies, winnerbodies, goldenbodies :Array[1..7] of string; costumepmt, busybodiescost, summerbodiescost, readybodiescost, winnerbodiescost, goldenbodiescost:Array[1..7] of real; busybodiestot, summerbodiestot, readybodiestot, winnerbodiestot, goldenbodiestot, amount:real; revname:string; i, a, option, busybodiescnt, summerbodiescnt, readybodiescnt, winnerbodiescnt, goldenbodiescnt :integer; Begin a:= 1 ; i:= 1; busybodiescnt:=0; summerbodiescnt:=0; readybodiescnt:=0; winnerbodiescnt:=0; goldenbodiescnt:=0; busybodiestot:=0; summerbodiestot:=0; readybodiestot:=0; winnerbodiestot:=0; goldenbodiestot:=0; writeln('------------------------------------------------------------------------'); writeln('Welcome to THE MAIN EVENT Carnival Band Software!'); writeln; Repeat writeln('Please enter qqqq for name and 7777 …

Member Avatar
Member Avatar
+0 forum 1

I noticed this afew times and it only seams to do it on my own application and am wondering if anyone knows how to reslove this I have attached a image showing the theme problem for some reason my richedit scroll bar will go blocky and have spaces. any one god any ideas? ![Untitled-1.jpg](/attachments/small/2/5d41ddd27da549a2a5d10cb75c15a1f0.jpg "align-left")

Member Avatar
Member Avatar
+0 forum 1

Hey all. I'm always frustrated that I cannot seem to find a reference that shows when a feature was *introduced* in Delphi. For example, to use ErrOutput, I have to manually create that value in D5. But what about D6? or D7? Does such a reference exist?

Member Avatar
+0 forum 0

The End.