House_of_Dexter

You can use a StringList... StringList.AddObject(string0, Pointer(integer0)); The string can be accesssed as StringList.Strings[a_Index]; the integer can be accesssed as integer(StringList.Objects[a_Index])

Also...since you know that you are always going to have a value in num... You can use Repeat instead of While... count_zero:=0; count_ten:=0; Repeat readln(num); IF num=0 then inc(count_zero); IF num=10 then inc(count_ten); until Num = 999; Also there is a bug in your old code... readln(num); // <-- you …

You should create a new topic...and post some code... I would suspect that you are going past the index of your listview...the listview is 0 based...so you should never access any Item past ListView1.Items.Count -1.

Why???Unless your going to program for Dos why bother...and if you are going to program for DOS...you should be using a DOS operating system. If you just want to get back into programming...then get a Windows compiler like Lazarus or Delphi. Lazarus is free. http://www.lazarus.freepascal.org/ and can be downloaded at …

If you have a button that should close the form...just add this to it... Also look into using ActionList and use the execute...you can tie lots of code into one common action. [CODE] procedure TForm1.btnCloseClick(Sender: TObject); begin Form1.Close; //this will call your forms FormClose...which will call your caFree. end [/CODE]

Actually...I think quaifp1 code is probably the best...It does what it needs to do...It assumes that we basically have 3 strings that need to be concatenated together with rules...Only need to add a Pad Zero function to make it work for any length chars... Though if I was going to …

This sounds like someones homework...show us what you have...and well help fix your problems...

You can also change your variables to ordinal types like integers...and to divide you use 'div' [CODE] var frmGradering: TfrmGradering; iTeller : integer; iTotaal, iGemiddeld : integer; sSimbool, sAfvoer : string; implementation {$R *.dfm} procedure TfrmGradering.btnTelClick(Sender: TObject); begin if iTeller < 6 then begin Inc(iTeller, 1); iTotaal := iTotaal + …

Inifiles have a size limit of 32 to 64k...check out the filesize...I would bet your running up against this...I would suggest moving to some type of database system to save the info...There are lots of free alternatives...If this is server based...check out MySQL or FireBird

What are you using Turbo Pascal or Delphi? If Turbo Pascal...look at AssignFile/Append/CloseFile if Delphi...use TFileStream something like aStream.Write(Pointer(aStringToWrite)^, length(aStringToWrite));

You can find a great header conversion program here [URL="http://www.delphi-jedi.org/files/darth/HeadConv.zip"]http://www.delphi-jedi.org/files/darth/HeadConv.zip[/URL] This code came from Dr. Bob's Conversion Program and article which can be found here [URL="http://www.drbob42.com/delphi/headconv.htm"]http://www.drbob42.com/delphi/headconv.htm[/URL] or [URL="http://www.delphi-jedi.org/api-howto.html"]http://www.delphi-jedi.org/api-howto.html[/URL]

You need to make sure to Export the procedure...you should have code like: [CODE]export MsgboxError2[/CODE]

If you are in a tight loop that takes lots of processing power...You never process any of the window messages...It's easy to fix in Applications...just add Application.ProcessMessages in an iteration of your loop. This will allow your windows to process any messages that are in the queue...like repainting and such. …

Since you need to be able to view the data and delete the data...I would look into linked list...

[code] procedure CheckBoxOnClick(Sender: TObject) ; var a_Checkbox: TNewCheckbox; begin if Sender is TNewCheckBox then begin a_Checkbox := TNewCheckBox(Sender); edit1.enabled := not a_Checkbox.checked; ///do what ever you want here...with a_Checkbox... end; end; [/code]

noticed an error here...with a quick pass... [code] if PassCheck <> User.Password then textbackground (White); textcolor (Black); writeln ('The Passwords Did Not Match Please Try Again'); textbackground (Black); [/code] should be [code]# if PassCheck <> User.Password then begin textbackground (White); textcolor (Black); writeln ('The Passwords Did Not Match Please Try …