1,899 Topics
 | |
| | I have a project at school in which I have decieded to make an encryption system which I am struggling with quite a bit at the moment - just finding resources to use and even a guide to follow. The only half decent thing i can find on the web … |
| | When formatted text is pasted from MSWord to a TRichEdit control, the bullets are well formatted (on the display) but after; Fetching the rtf data from the TRichEdit control using TStringStream, Saving the stream's DataString to a database and then Loading the saved rtf string back to the TRichEdit control …  |
 | Hey guys I am trying to prompt the user to input a file name, and save that file name into a packed array of characters then use that inputed flename to perform some opertions. FileName : text; Line = PACKED ARRAY [0..79] of char ; writeln('Please input a file name … |
| | Hi, I am in need of converting a project which is in Delphi 5 to Delphi XE2. When I run the same Delphi 5 code, in XE2 , I get some errors. In Delphi 5, we have used NMFTP component for file transfers. But here netmasters is not available. Instead, … |
| | I am fairly new to Pascal and I have been attempting to write a hangman game. I am aware that there are probably so many better ways to do this than I have done but I am having some problems where the exit variable is not met because the current … |
| | Okay, so I have a program that deletes an entry from the database. It is linked to the program with an ADOQuery. How can I check if a record with a certain primary key exists in the database? And then it has to take that ID, and then report to … |
| | Please guy's how do I solve this question using pascal? just new here and in programming. Am using free pascal. In the given string of characters move all the letters to the beginning of the line, and digits to the end of the line. For example: the string "a13Bc1de2F G.! … |
| | I am working in Turbo delphi using VCL for aplication and I am in an urgent need of someone explaning me how to draw curves for parabolic shot. I need to learn how to make the line in a slow motion making it draw the flight from the starting point … |
| | Hey guys I have a question and I hope someone can answer it. I've been having many problems in trying to find an answer to if I would be able to load a Turbo Delphi project I made this year into my ipod touch. |
| | Why doesn't my Turbo Delphi project run in the Delphi XE?? Can someone please answer me this! I realy need it to work if not I'll have to do it all over again. :S |
| | Hy there. I have some code where I store data for 365 records (for every day in a year) in delphi, some kind of list as far as I understood (a good man!!! Sir Rufo on stackoverflow helped me with that part of code, writing whole example for me! Thanks … |
| | I got another question. I am passing an array of characters to a function, but when i get into the function, before doing anything I want to make sure that the array was passed in correctly so I attempt to print the contents and it does nothing. So i assume … |
| | Hey guys. I have the following loop structure condition statement: while ( ord(UpperCaseWords[i]) >= ord('A') and ord(UpperCaseWords[i]) <= ord('Z')) do Problem: When a compile, I get an error saying: "Error: Incompatible types: got "BOOLEAN" expected "LONGINT" " using Dev-Pascal 1.9.2. Description: UpperCaseWords = PACKED ARRAY of Characters that may contain … |
| | 1. I need to store numerous records in one binary file. Each of the records needs to include a name and an answer to a question. I know how to set up and add one record but how do i set it up so that I can add others at … |
| | Hello I have been trying to get past certein exercises in Pascal but for some reason I always run into problems that I don't understand. I have the following (synthesized) TYPE Triangle = RECORD x, y, z : word; END; Triangles = ARRAY OF Triangle; {more code} TriangleSize : integer … |
| | I assume this is simple enough, when you know how :) I retrieve 2 files, pricelist with multiple information such as number, price, desciption and so on, the 2. file is discount file, with 2 fields : discountcode;discount like G30;48 which means discountcode = G30 which equals 48% I have … |
| | Program random_no (input, output) ; Const m=100000000; m1=10000; q=31415821; Var i, p, No: integer; function mult(r, s: integer) : integer; Var r1, r0,s1,s0: integer; begin r1 :=r div m1 ; r0:=r mod m1 ; s1 :=s div m1; s0:=s mod m1; mult:=( ((r0*s1+r1*s0) mod m1)*m1+r0*s0) end ; function random : …  |
| | I have been trying to write a program in Pascal (free pascal compiler, Lazarus IDE) that solves an uncompleted entered sudoku. I am moderately new to programming/pascal/lazarus, and so I have no idea how to use the debugging features. I have read through the code several times but I can't … |
 | I'm trying to port opensource C++ code into my own Pascal application. Specifically, I'm using libredwg source to read an AutoCAD drawing file so that I can extract text attributes and populate a database using Lazarus. char* copy_bytes_16(char *dst, char *src) { *(uint64_t*)dst = *(uint64_t*)(src + 8); *(uint64_t*)(dst + 8) … |
| | I am trying to open an instance of Excel 2007 and load some text into a new file's cells (such as a list of something) through my Delphi4 program. I have already tried the ShellExecute and ComObj (variant) methods. ShellExecute works fine on the Windows XP platform, but not on … |
| | Basically I have a Delphi application which downloads some data on run time, it basically executes Form.OnCreate; and then ENABLES a TTimer component to do the downloading. This has been working fine for me as at least the user sees the interface whilst it's loading but now I have a … |
| | Code a decision using an IF, THEN, ELSE statement (2 branch decision) Code a one branch decision using a null else statement The following is my answer: [CODE] program Negatives; {$APPTYPE CONSOLE} uses SysUtils, ourcrt; var balance, posNeg:integer; begin randomize; writeln ('Generating your bank balance'); writeln ('Please wait .....'); sleep … |
 | **Enter row number: 4 Sum of numbers in row 5 is 31. Sum of all numbers above 4 is 15. this should be the output look like.. can someone help me? thanks.  |
| | In other threads I read that Delphi is not prepared, as a net for today, but the comparison was made on VCL in Delphi 7. Actually, the latest version of Delphi and its library is XE3 is FireMonkey I had seen the comparisons between C # and Delphi. I try … |
| | #include<iostream> using namespace std; int fact(int); main() { int rows,i,j,k; cout<<"Enter the numbe of rows you want in the triangle:"; cin>>rows; for(i=0;i<rows;i++) { //Moving each row by rows-i spaces to get a triangular shape for(k=0;k<(rows-i);k++) cout<<" "; //Loop for printing each row for(j=0;j<=i;j++) cout<<" "<<fact(i)/(fact(j)*fact(i-j)); //nCr=n!/(r!*(n-r)!) cout<<endl; } } int … |
| | Basically I'm running into issue, I have a Global Keyboard hook in a DLL, whenever it captures a key it uses WMCopyData to send the keycode over to the MAIN application. The problem is when the main application gets the key code it seems to be corrupt/changes in value. Here … |
| | Hi all. I have a radio group with a bunch of possible selections. User has to select one of the options in order to go on. Is there any faster way than a for loop iterating through the single buttons to verify one has been checked? Thanks |
| | Hi, I have a homework to do for college, which asks me to write a pascal lexical analizer in C. I'm trying to figure out the best way to ignore the comments, so far I've written this code, which works, but I would like to know if there is an … |
| | I have a Delphi 2010 DLL using AnyDAC (version 6.0.2 (build 2653)) TADTable components. When I SetRange on any table in a PostgreSQL database, I get "Assertion Failure" error. This only happens in the dll - copying the code to a simple exe, I don't get the error. I am … |
| | I want to control an external program from Delphi, so I spawn a process using CreateProcess. Based on ideas I adopted from Neil Rubenking, I then create a menu tree using TTreeView. The items in this tree are clickable, and clicks can also be emulated by me sending keyboard events … |
The End.