1,899 Topics
 | |
| | program primo; uses crt; type tipo=file of integer; var scelta:integer; num:tipo; procedure inserisci(n:tipo); var nome,x:string; i:integer; begin write('Nome del file:'); readln(nome); x:='F:\File\Esercizi'+nome; assign(n,x); rewrite(n); write('Inserisci 20 numeri:'); for i:=1 to 20 do write(n,i); close(n); end; procedure scrivi(n:tipo); var nome,x:string; i:integer; begin write('Nome del file:'); readln(nome); x:='F:\File\Esercizi'+nome; assign(n,x); reset(n); while not …  |
| | Dear knowledgeable ones. I started on a project to be able to use a smart card and a smart card reader in order to limit access to a program. I had some sample code written in Visual Basic, and wanted to translate this to Delphi instead, something I think I …  |
| | Hi, need help with this. I have a text file with info in that format: [CODE]product1 description stock product2 description stock[/CODE] And want to save that values to a record like this: [CODE]prod=record name:string; des:string; sto:integer; end; [/CODE] forget the "assign" and "reset" part, I got this, I actually need … |
| | I did an experiment regarding sorting of 256.000 random "names" using TListBox component. A friend of mine say that TListBox is faster than my code at sorting, so I wanted to test this out of curiosity. Method of testing. When I have created 256 thousand random textstrings, each 6 characters, … |
| | how to divide frames in the program (pascal)? a program which can display different part through frame. |
| | I did this code to compare to Delphi code in Delphi forum [URL="http://www.daniweb.com/software-development/pascal-and-delphi/threads/357771"]TListBox and sorting[/URL] which ran in my computer compiled in free Lazarus environment at time 7,235 s for generate and insert to listbox, 13,265 s sorting the listbox. |
 | ola, Please help, stuck on this error "class TJvGifAnimator not found" and the web is of no use, anyone know of a way to fix this or what path I could include in CodeGear to fix this. I've re-installed all library packages from Jedi component library (JCL) and JVCL. Am … |
| | What are the four major sections of a Delphi Unit? What is the difference between an Object and a Class? In the context of a class what does “static” mean? Why would you use it? How would you create a thread in Delphi? What are the issues that you can … |
| | Hi guys/gals Ok here is my problem, when importing data from excel using ADO, delphi doesn't seem to be able to import mixed column values...e.g. the column is formatted to integer and the integer values correctly import into delphi, but the same column contains string values it imports nothing or … |
| | I am trying to draw a few items on a canvas using Canvas.TextOut mainly. My problem is that when I grab the form holding the canvas and then move the form outside of the screen and back again, all text and drawings have vanished, as if they have been erased. … |
| | I am designing a lot of TCheckBox at runtime, and uses mathematical formulas for placing these in columns and rows afterwards on a form. I assign an on click event that is exactly the same on all of them, and everything work, except... Color. My OnClick event is made like … |
| | I have a problem that i need to solve, and dont know how to do it. I have two arrays of 80 numbers (array[1..80] of integer) and i want to multiply them, saving the result in another array. I am beginner in pascal, learning it at school, so i have … |
| | Basically I have a label which I do the following with on start up of my application: [code] with Label1 do begin Caption := 'Computer Locked'; Align := alClient; Alignment := taCenter; Top := 400; end; [/code] Now the problem I have is the alClient and taCenter work perfectly making … |
| | Hi everyone I'm trying to connect and display data in a TDBGrid (component) from an .mdf (made in sql) and connect it to a Delphi application. the .mdf is on the desktop and my databases name is Attach. If anyone has any clues or advice please let me know! Many … |
| | Hello guys, basically I have two Delphi applications which I want to communicate and work with each other, the only problem is I don't know how. Can anyone help me create a as simple as possible programs so that when I press a button in the first program, it would … |
| | After searching around for along time... I've found nothing. I need to be able to grab an image from an imagelist. I tried searching through the properties and methods, but found nothing that looked like it would help. [CODE] begin PicArray[WhichCol, WhichRow].Picture := {Image from imagelist} end; until Imageindex[WhichCol, WhichRow] … |
 | hi, i try to make a square number but its not limited by 2. number and the square can be any numbers. so its like n^n. please help me.. i confused how to do this.. any help will be appreciated. thanks. |
 | Hi all, Can someone tell me if this is a delphi bug? I am using a Controls.TDate to store a date and using the SysUtils.EncodeDate function to set the value. [code] Invoice.DateReceived := EncodeDate(2011, 03, 16); [/code] When I store it in a MS SQL database field, it is adding … |
| | Hello! I have a little project of my own to convert a memory game puzzle from VB.Net into Delphi (Not a big Delphi fan). I was doing fine so far until a control would not be recognized (outlined in red and green). It is an imagelist containing 8 images. [LIST=1] … |
 | Hi masters,, how can i count how many words in sentences using pascal? thanks before and best regards. |
| | I have problems to play video files from different cameras with the media player supplied with Delphi. Does anyone know of a free compnent that I could test in stead? |
| | Hey all, I'm currently having a file I want to open using a program. The system does NOT have the file-extension associated with said program. However using the standard "let me choose what program to use" box when trying to open the file and selecting the program it runs just … |
| | Hi I am new to pascal, How to draw on pascal with goto or pixel command? And how can I make a game X-O user vs computer? |
| | I am trying to make a code for shuffling a deck of 52 cards no jokers. I have generated a deck and I plan on randomly inputing all the values into another array as my shuffling. How should I do that? [CODE]program game; var Deck : Array [1..4,1..13] of integer; … |
| | Any ideas on detecting the current version of the MySQL ODBC driver? Currently I am reading the registry to obtain the version: [code=delphi] Function MySQLVersion:String; Var TR : TRegistry; SL : TStringList; I : Integer; Begin Result := 'ODBC 3.51'; // Default version SL := TStringList.Create; TR := TRegistry.Create; TR.RootKey … |
| | Hi I am attempting to employ the named pipe application “Using Pipes for Messages” which I found at [url]http://www.delphi3000.com/articles/article_2918.asp?SK=[/url] I am running Borland Studio 2006 on Win 7 and need named pipes to communicate to a C# app that I am also building. The example (bottom of page) is supposed … |
| | Hi people , I have an easy question(but lack the knowledge in Delphi), I have a piece of code that i want to run but don't want to type it over for every time it has to be run (not very good coding then). Is there a way i can … |
| | Hello, I am currently using Delphi Prism to try and extract file properties. Below is the code I am currently using which should work, however, the compiler generates an error: Error 1 (PE190) "DSOFile.OleDocumentProperties" is an interface and cannot be instantiated C:\Users\Zumla\Desktop\Comp4\.Net Project\Computing4\Computing4\Main.pas 114 63 Computing4 Help would be much … |
| | Hi guys The just of what i whant to do is read lines of text from a file until it reaches a delimiter and then execute that text in a query and repeat the process till there is no more text. I am using Delphi 6(don't have a choice) and … |
| | We have a Delphi app that performs user authentication using the activeds.dll library. However, when running on a 64-bit server, even though the WOW64 processing thunks the library to use the psuedo-32-bit version, we're consistently getting an app crash when attempting to use the library. Any helpful suggestions? Thanks |
The End.