program F_Tables;
var
Permutations:integer;
{ ------------------------------------------------------------ }
function AnsIsLegal(S:string):boolean;
var
aCOunt,
bCOunt,
cCOunt:integer;
i:integer;
begin
aCount := 0;
bCount := 0;
cCount := 0;
for i := 1 to 5 do
begin
case...
ERROR *** ERROR
Both of the last two functions could return an empty string if you where to try
foo := IntToStr(0);
[\code]
so change to
[code]
function IntToStr2(aValue:integer):string;
var
I:integer;
S:string;
begin
if aValue = 0 then
IntToStr := '0'
else
begin
S := ''...
Well, It's a long time from my turbo days. I now use Delphi for everything ( inc. "DOS" or console apps. )
In Delphi, IntToStr is in the SysUtils unit.
But in case that's no good for you, and you can't find it, this will do the trick.
{-------------------------------------------------------}...
Oops, I didn’t spot the 2000 bit.
I suspect that the program will fail on win NT4 as well as Win2000 ( NT5 ).
I have many 16 bit apps fail in the NT environment but work fine in win 95/98.
I strongly recommend getting Borland Delphi 6/7 personal edition FREE from...
I’ve had similar problems using Delphi apps written for console mode.
The problem nearly always turned out to be a runtime error that shut down the app with an error message and then closed the dos window, but this happens so quickly you miss the error message.
Instead of running the “program”...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.