hello guys, i know you all are familiar with DOSCOMMAND to run a console and catch its output .. but what if i want to send a PAUSE keystroke to the console ?? with SENDLINE i can send string and char but how do i send a PAUSE or ENTER(RETURN) key ??? please any help ??? thank you

Member Avatar
Member Avatar
+0 forum 1

{program ncic; const home : real = 1500; life : real = 2000; motor_vehicle : real = 1400; business : real = 1200; Var surname : array [1..2] of string; //array to save the surname for each client insurance : array [1..2] of string; premium : array [1..2] of integer; total_premium : real; client : integer; home_count, life_count, motorveh_count, business_count : integer; Begin home_count := 0; life_count := 0; motorveh_count := 0; business_count := 0; for client := 1 to 2 do begin writeln('Enter the client Surname: '); readln(surname[client]); Writeln('Please enter the type of insurance: '); readln(insurance [client]); writeln('Enter your …

Member Avatar
Member Avatar
+0 forum 4

How i can get in result this picture: [Click Here](https://imgur.com/a/ddBb6) for now my code is: program cikls; label m; var a:byte; begin write('Ievadiet veselu skaitli:'); readln(a); if a<1 then goto m; repeat writeln(a); a:= a-1; until a = 0; m: readln; end. When i runit it make numbers counting down. I have change number to this symbols *.

Member Avatar
Member Avatar
+0 forum 3

hi, i am looking for a sample program for delphi for a server client. I was wanting to use sockets and i am using pascal. if any one know of any good resource site or has some same code. I tired the following example [url]http://www.dcs.napier.ac.uk/~bill/delphi_page.htm[/url] but when i compile t said client socket doesnt have corresponding component??? thanks for looking

Member Avatar
Member Avatar
+0 forum 15

I have a pascal script, which basically pushes information into a 3rd party system. I have an excel macro written, which saves raw data into a CSV file, which I would like my script to read, and take the data (each row is 1 record) and put each portion in a specific field (setValue) I cannot seem to find a way to do this (I am able to do this in a single field) but am unsure how to have 444,555,666 work so 444 goes here, 555 goes here, etc. into my 3rd party program. The VBA (works great no …

Member Avatar
Member Avatar
+0 forum 5

Hey folks ! So I got this task and I really need your help to program. The question follows as... "Input one sentence which you can see on the top part of the monitor. Then for each letter find words of sentence where they are meeting and write the list under the sentence. Near each word write the meeting number of this letter" Thanks ! :)

Member Avatar
Member Avatar
+0 forum 1

A children's game of 'count out' is played as followed. '40' children are arranged in a circle, a sentence containing of 'm' words is used to eliminate '1' child at a time until '1' child is left. Starting at child '1' the children are counted from '1' to 'm' and the 'm' th child is eliminates. Starting with the child after the one just eliminated the children are then counted from '1' to 'm' and the 'm'th child is eliminated. This is repeated until one child is left. Counting is done circularly and eliminated children are not counted. Write a …

Member Avatar
Member Avatar
+0 forum 2

Design a pascal that will capture the names and coursework and exam grades for math, science and computer science from a set of students. It should calculate the final grade for each course and GPA. The algorithm should output as a list at the end the name, math final, computer science final, science final and GPA for all students whose details were entered. The prgram should also display the total amount of students who have received a passing grade in the math final, computer science final and science final respectively

Member Avatar
Member Avatar
+0 forum 1

Program sifrarnik; Uses sysutils; Type myrecord=Record num:integer; itemname:String[20]; price:Integer; End; Var data:array[1..10] of myrecord; doc:file of myrecord; operatingnum:integer;//item number used for reading and writeing into base error1,choice1,i,j,n,a:integer; begin Repeat Begin WriteLn('1. Add items date':10); WriteLn('2. See items data':10); WriteLn('3. Close'); Write('Chose: ':10); ReadLn(choice1); Case choice1 of 1 : Begin Assign(doc,'myfile.dat'); rewrite(doc); Write('How many items data do u want to enter ':10); ReadLn(n); For i:=1 To n Do Begin WriteLn('Enter items num: ':10); ReadLn(operatingnum); with data[operatingnum] do begin num:=operatingnum; Write('Enter Items name: ':10); ReadLn(itemname); write('Enter items price: ': 10); ReadLn(prodcena); ReadLn; End; Write(doc,data[operatingnum]); End; Close(doc); readln; End; 2 : Begin Assign(doc,'myfile.doc'); …

Member Avatar
Member Avatar
+0 forum 2

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 you

Member Avatar
Member Avatar
+0 forum 5

I am in grade 11 and need help with creating a geocaching program in Delphi. It has to be intergrated with a database. Please could anyone give me ideas of what possible features this program could have Thanks

Member Avatar
+0 forum 0

Guys i cant imagine about how i'm gonna calculate that one... help me out please

Member Avatar
Member Avatar
+0 forum 2

Hi all, can anyone point me in the right direction to find some documents / demos on how to use opus codec within delphi I not found anything on official webpage. Thanks.

Member Avatar
Member Avatar
+0 forum 1

am looking for a way to count down from 30 seconds using a timer and updating a Gauge using Progress to reflect the time remaining. I know this is very simple code but my brain is some what dead here my bad code. procedure FreeTimerTimer(Sender: TObject); begin TotalTime := GetTickCount() - FreeTimer.Interval; // 30000 int // Gauge.MaxValue := 100; Gauge.MinValue := 0; Gauge.Progress := TotalTime; // if Gauge.Progress = 100 then begin FreeTimer.Enabled := False; // stop timer when done end; end; Thanks.

Member Avatar
Member Avatar
+0 forum 2

can someone please help me with this pascal program, does this look right? Program StudentScores; var c: integer; s: integer; t: integer; n: integer; p: integer; f: integer; h: integer; l: integer; ave: integer; max: integer; am: integer; hi: integer; li: integer; scores: integer; Begin For c:= 1 to 15 do; Begin writeln('Enter the name of student: ',n); readln(n); writeln('Enter the test scores for Class A: ',s); readln(s); If scores > 80 then writeln('This student gets an A: ',p) Else writeln('This student has Failed: ',f); read(scores); End; scores:=0 max:=0 read(scores); Begin writeln('The highest score is: ',h); read(h); writeln('The lowest score …

Member Avatar
Member Avatar
+0 forum 1

Write a well structured program that will accept the following fields of record in a data item, surname, other names, age, address, occupation, department, level, and grades for 15 different courses. 1. The program should be able to compute the CGPA of each candidate when scores for the courses are entered 2.the program should be able to search for individual records and display it, in a well designed interface 3. The program should be able to indicate the students best course among the 15 courses 4. The program should be able to determine the best student in a record of …

Member Avatar
Member Avatar
+0 forum 1

I know this sounds like a "Do my homework" question, but I am new to coding and am struggling to come up with a method to combine multiple RFT Files. The files contain around 3000/4000 characters. I want to initially open up a 'master' RFT file and then append multiple RTF files I have selected to this file. I have an array that stores all the filenames of the selected RTF Files. Any help appreciated. Thanks.

Member Avatar
Member Avatar
+0 forum 2

iam asking about chimical equations how can i programme it to the computer how can i make the computer understand that c+o2=co2 or naoh + hcl =nacl+h2o i mean how he understand that acid +alkail= water +salt

Member Avatar
Member Avatar
+0 forum 3

Okay so I have this program that generates 10 random number (1-1000), calculates their average and the amount of larger as well as smaller numbers than the average, this is what I have and for the life of me I can't figure out wheat I don't do right: program random1; var i,sum,min_pl,max_pl:integer; pin:array[1..10] of integer; mo:array[1..10] of real; begin randomize; for i:=1 to 10 do pin[i]:=random(1000); for i:=1 to 10 do writeln(pin[i]); sum:=0; for i:=1 to 10 do begin sum:=sum+pin[i]; mo[i]:=sum/10; end; writeln(); writeln('The average is: ',mo[i]:4:2); writeln(); min_pl:=0; max_pl:=0; for i:=1 to 10 do if (mo[i]<pin[i]) then min_pl:=min_pl+1 else …

Member Avatar
Member Avatar
+0 forum 6

**Question:** Create a message encryption system application that translates every message character to its ASCII equivalent and pads the resultant code with a chosen random key based on an addictive operation. **Answer:** program Encrypt; type tab=array[1..255] of byte; function Sum(T:tab):integer; var i,s:integer; begin S:=0; for i:=1 to length(T) do s:=s+T[i]; sum:=s; end; var s: string; ascii: array [1..255] of byte; i,code: integer; begin; write('Enter a string: '); readln(s); for i:=1 to length(s) do ascii[i]:=ord(s[i]); { s[i] accesses each element of the string as a char. ord returns the ASCII value of the char. } writeln('ASCII vals: '); for i:=1 to …

Member Avatar
Member Avatar
+0 forum 10

anyone have a wrapper or know were to get a wrapper so am able to use the opus codec within my application ?. http://www.opus-codec.org Thanks

Member Avatar
+0 forum 0

I have nothing to start with.. *sigh&

Member Avatar
Member Avatar
+0 forum 5

I have a problem!! I am trying to convert pascal code to VB and am stuck. Pascal: TYPE Elements = SET of 1..255; Xpath = ARRAY[0..50] of BYTE; VAR Path0,Path1,Path2:Elements; Path:Xpath; So, Elements is defined as a base set of numbers 1 through to 255 (inclusive). Path0, Path1 and Path2 are defined as working variables within the program which can hold any value from the range defined in Elements. In the code itself: Path0:=[]; FOR i:=1 TO Num DO BEGIN Valve:=Config.Ident[Order[i].Rv]; WRITELN(' ',Valve); Path:=Pathmatrix[Order[i].Rv]; Path1:=[];Path2:=[]; FOR z:=1 TO Path[0] DO Path1:=Path1+[Path[z]]; Path2:=Path1-Path0; Path0:=Path0+Path2; Design(Order[i].Rv) END; Printout(Order[i].Rv); END Path0 is initialised …

Member Avatar
Member Avatar
+0 forum 2

Am trying to read a bmp that has 24 images in all and am trying to make it so I can read the single bmp file to show the correct image and having a real problem with it am using delphi xe2 I have googed it but not much on it mostly only for java or c++, I know it should be some sort of a Array such as Dices: Array[1..24] of TBitMap; 6 grey enabled 6 grey disenabled 6 white enabled 6 white disenabled image below: [Click Here](http://www.mplayer.co/DieAll.bmp) can anyone point me in right direction please thanks.

Member Avatar
+0 forum 0

I have been working on a program for recording voice conversations as a mini project. I have the recording working 100%, my problem is that I have no idea how to encode the wav file to a mp3 file. Here is my recording and saving code: procedure TForm1.Button1Click(Sender: TObject); begin mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle); mciSendString( 'SET mysound TIME FORMAT MS BITSPERSAMPLE 16 CHANNELS 1 SAMPLESPERSEC 16384' + 'BYTESPERSEC 16384', nil, 0, Handle); mciSendString('RECORD mysound', nil, 0, Handle); Timer1.Enabled := true; sFormLabel := 'SED-Recorder : Recording'; Form1.Caption := sFormLabel; StartTime := Now; iDisplayNumber := 0; end; …

Member Avatar
Member Avatar
+0 forum 2

I need to interface to a USB device from VB.net, where I both read and write to the device. Are there any programing differences between the different USB interfaces, i.e 1,2 and 3 that I should be aware ? Does it matter if say a USB 3 device is plugged into a USB2 port ? Thanks for your help

Member Avatar
Member Avatar
+0 forum 6

Construct a large integer (32 – Bit) from two Byte Variables (8 – Bit) and one Word Type variable (16 – Bit). Store your result into EAX and print it. Like if byte1 = 21h, byte2 = 43h & word1 = 8765h Then your output may be 87654321h OR 43218765 OR 43876521

Member Avatar
Member Avatar
+0 forum 3

I have to write a quizz in pascal where the user have to write his own answer can u help me ?

Member Avatar
Member Avatar
+0 forum 1

hello, i'm new in Delphi and i want to add a new record to a chiled Table(tbl2) but i have this Message 'valid date and time' what i wantto do is add to my project a 3 Buttom one is to add a record in chiled Table(tbl2) and the other buttom when i click on it remove recored from parent table but i cant my progect is attached

Member Avatar
+0 forum 0

I have windows7 64bit I am trying to install borland delphi 6 my Problem is when I run the program , the next message appear: ![2.png](/attachments/large/4/d7ae545f682db0c4751647130738edd9.png "align-center") and when I press (run program),the next message appear: ![3.png](/attachments/large/4/e91dca52deb056bea82a07be37995b91.png "align-center")

Member Avatar
Member Avatar
+0 forum 6

The End.