fayyaz

Hi This code create random numbers without repeating between 1 and 9 and insert them into an array [CODE] Program RandomArray; Var A:Array[1..9] Of Integer; I,j,N:Integer; Found:Boolean; Begin Randomize; For I:=1 To 9 Do Begin N:=Random(9)+1; Found:=True; While Found Do Begin Found:=False; J:=1; While (J<I) And (Not Found) Do Begin …

Hi I have writen a web service. this web service has a method that returnes a Table as XML format and I need to use it as a table. how can i use this web service as a table. is any way to convert XML format to Table format Thank …

Hi I Send you an example that will be useful for you. note that I use access database. you can use any kind of database instead.

Hi All As you know One of the new figure's of SQL Server2008 is that you can Define a table as a stored procedure parameter. So my question is that how cane I pass a data set to Stored procedure as a parameter in Delphi? Thanks

Hi All I want to create a service application with Delphi that can connect to SQL DataBase I can create service application but the ADOQuery don't work inside the service Is any one that can tel me what should I Do? Thanks

Hi By this code you can insert some items into List view [CODE] procedure TForm1.Button2Click(Sender: TObject); Var ListItem:TListItem; begin ListItem:=ListView1.Items.Add; ListItem.Caption:='Hello my friend'; end; [/CODE]

Hi You cane write this procedure for OnClick Event of ListBox [CODE] procedure TForm1.ListBox1Click(Sender: TObject); Var I:Integer; begin For I:=0 to ListBox1.Items.Count-1 Do If ListBox1.Selected[I] then Memo1.Lines.Add(ListBox1.Items.Strings[I]); end; [/CODE]

[QUOTE=HelpMeIT;1141707]I am currently trying to get the text from a DBLookUpComboBox but it wont let me retrieve it i have a number and 2 strings in the box which is an ID and first and last name. I cannot retrieve anything from the box unless i use a edit box …

Dear friends I have some picture stored to SQL Table as Image Field. but I Don't know what is the format of this pictures they may be JPG or BMP format. for retrieving this images I mast know what is the format of each stored Picture. is any method to …

Dear Povel your code have abit mistakes that I correct them but the main reson for Error 106 is not becouse of your Code ; it is becouse of Data format in your input text file named salary.txt you define variable Name as String[50] in your program and try to …

[QUOTE=gerhardjl;1137420]Hi, How can I make a button transparent (tsxButton) in order for it to appear 'invisible' on the target application? The tsxButton must still retain its standard properties. This means that if the user know where the button is on the application, moving his mouse on the area, the user …

[QUOTE=sfp;1122209]Hello :) I would appreciate some help with these few areas, i do not intend to use any of this knowledge maliciously, and am just merely interested... 1) Does delphi have the ability to make a form partially or fully transparent / invisible? 2) I understand and have come across …

Dear my friend hear is the solution for playing a sound continuously before using this code you mast use [B][U]mmsystem[/U][/B] Unit in Uses Part of your Unit [CODE] procedure TForm1.Button1Click(Sender: TObject); begin SndPlaySound('1.wav', SND_ASYNC or SND_LOOP) ; end; [/CODE] "1.Wave" is the sample sound file. you can write full address …

Hi How Can I Change The Height of Rows in DBGrid ? Thanks.

[QUOTE=HelpMeIT;1055879]I need a way of adding data to a database using my delphi form i can handle the sql to add data to a database on ms access but i just do not know how to do it through a delphi form. In other word i just need to know …

[QUOTE=especta;1051520]byte range is 0x00 to 0xFF haw to write to text file like this byte 0x00 = byte 0x01 = byte 0x02 = ...... all to byte 0xFF Thanks.[/QUOTE] Hi this is the solotion of your problem [CODE] Var byt:byte; OutFile:TextFile; begin Assignfile(OutFile,'OutFile.txt'); Rewrite(OutFile); For Byt:=0 to 255 do Writeln(OutFile,'Byte …

Hello All I am Writing some components that are depend together. for example tow of them named as "TFyzLine" and "TFyzTranse" thay have a same Property that named as "InputFrom" . "TfyzLine" mast connect to "TFyzTranse" via "InputFrom" and get some data automatically from "TFyzTranse" and "TFyzTranse" mast Connect to …

[QUOTE=mohsennour;1034415]dear, I was asked about how delphi can read RS323, your reply that you will send a componet to me by email but unfortunatly the emails adresses is snapped on this forum ,i'll try to writ my email here but if they snipped it ,please try to find any way …

Hi I Have Some Problem with ScrollBox As Below 1- If I Put a ScrollBox On a form and Put Some Objects such as TButton,TImage , .... on it If I move an object to right (or down) and trepass right side (or Down) of ScrollBox the horizontal (or vertical) …

[QUOTE=alikSmehoff;1026245]Hello, how can I open MS Word application in my Delphi program? I think, it is necessary to work with ActiveX or maybe there is any other way or some free software for this purpose?[/QUOTE] Hello This is a simple program that open Word Document in Delphi [CODE]unit Unit1; interface …

Hi This code is For Saving your Form to Disk. For Example You can use this code as OnClik routine of your Form. [CODE]procedure TForm1.Button1Click(Sender: TObject); Var Bitmap:TBitMap; R:TRect; begin BitMap:=TBitMap.Create; Try BitMap.Width:=Form1.ClientWidth; BitMap.Height:=Form1.ClientHeight; R:=Rect(0,0,Form1.ClientWidth,Form1.ClientHeight); BitMap.Canvas.CopyRect(R,Form1.Canvas,R); Bitmap.SaveToFile('Form1.BMP'); Finally Bitmap.Free; End; end; [/CODE]

[QUOTE=quaifp1;1013374]Hi, I want to create a line on a canvas ( similar to a visio connector but not as fancy) which will allow a mouseover event to be trapped ( this would trigger a property sheet to display the atributes of the line - a microwave link in my case …

Hi I have a Component for comunication with Com Ports. It may be usefull for you if you want it please send me an Email SNIP I will give you that component By Email.

[QUOTE=Locria;1019365]Hey, I've been busy coding combo boxes to filter a database but the problem is they don't work together. e.g. If i select a car type, it shows all the cars of that type but if i select blue in one combo box and a car type in the other …

[QUOTE=havoc433;1004046]Hi I'm using the Pascal language and I need help with the following problem. You need to find the most common word read in by a user of arbitrary length and then display the amount of times its found in the input. I placed all the words into a linked …

[CODE]Program SortFile; Var Hotseat,Tmp1,Tmp2,Final:Text; Buffer1,Buffer2: string[52]; FirstName,Name1,Name2:String[12]; LastTmp1,LastTmp2:String[12]; begin assign(Hotseat,'Hotseat.TXT'); assign(Tmp1,'Less.TXT'); assign(Tmp2,'Grade.TXT'); assign(Final,'Final.TXT'); Reset(Hotseat); ReWrite(Tmp1); ReWrite(Tmp2); Read(HotSeat,Buffer1); FirstName:=Buffer1; Writeln(Tmp1,Buffer1); LastTmp1:=FirstName; While Not Eof(HotSeat) do Begin Read(HotSeat,Buffer1); FirstName:=Buffer1; if FirstName>=LastTmp1 then Begin Writeln(Tmp1,Buffer1); LastTmp1:=FirstName; End Else Begin Writeln(Tmp2,Buffer1); End End; Close(Tmp1); Close(Tmp2); Reset(Tmp1); Reset(Tmp2); ReWrite(Final); Read(Tmp1,Buffer1); Name1:=Buffer1; Read(Tmp2,Buffer2); Name2:=Buffer2; While Not((Eof(Tmp1)) …

Hello this happend because an array index in Pascal by default start from 0 your array in Main program Start From 1 But the array that is defined in procedure is started from 0 By Default so if you want to print fifth element of array in procedure you mast …

Hello My Frind You can change "BidiMode" ProPerty to [U]Right to left[/U]

[CODE]procedure TForm1.Button1Click(Sender: TObject); Var X,I:Integer; begin For X:=1 To 4 do Begin for I:=0 to Form1.ComponentCount-1 do Begin if form1.Components[I].Name='Image'+Trim(IntToStr(X)) then (form1.Components[I] as TImage).Picture.LoadFromFile(Trim(IntToStr(X))+'.jpg'); End; end end[/CODE];

Dear Detoxx I don't think that your question is a silly question. this problem is a natural problem that all programmers may have but the expert programmers can solve problem by reviewing program code carefully. you have a logical error in your program that I try to explain it for …

Helo Olsi009 i think that some of your programs statements is in a wrong Order I try to correct them and write the new programe as below Program List56; Uses CRT; Type student=^pointer; pointer=record name:string[10]; next:student; end; Var Head,org, p1 :student; Name:String; Procedure Cr8List; Begin //creating the first node of …

Hello N_Mehdi how meny key words do you have that you want to find them in the text file

Hello my frind I think that You need to install a PDF virtual printer and then you can send the result of reports to that printer. it will make a PDF file Automaticaly. if you wand to use that you can use this link [URL="http://www.pdf995.com/download.html"]http://www.pdf995.com/download.html[/URL]

Dear All I want to Drag and Drop sum objects at Run time. For example I have som buttons, Edits, ... On a form and I want that (after runing the program) I can to Changing their Position By Drag and Drop opration. Please Help me Thanks alot. H.Fayyaz

Hi All how can I change System time format From hh:mm:ss(12 Hour) to HH:mm:ss(24 Hour) Using Delphi code? Thanks

Dear Kutu I Detect this problem too mor and mor times bat at last I andrestod that Stoping Copy Setup files mey have three resunes 1. It may be becus of sum Errors on your WinXP Setup disk 2. It may be Becus of the speed of CD drive is …

Hi rinoa04 We use NOD32 Ver 3.2 By East Company And it is very Useful And easy to use And it is very easy for Automatic Updating

Hi bobbyraw I think you have An Autorun File on the root of hard Volume (E:). it may be copied from an Autorun CD. you can open hard Disk Volum (E:) and delete autorun file from root of Volume

Hi Have you share priunter ?

Hi All I want to change format of system Time display by my program for example if format of system time is "hh:mm:ss AM"(12 hour clock format) I want to change it to "HH:mm:ss"(24 hour clock format) is any solution for this purpose? thanks