Help locating program logic

[lucamar]

I must have something wrong in my code..

Yes, as I said:

The problem in your code is that you're forgetting to reassign iApt to TheWord the second time:

Code: [Select]

iDigits := False;
 iApt := ExtractWord(5, sTest3, [' ']);  //  iApt = NZCB
 Label18.Caption := iApt;
 {*** Here TheWord still contains 'TN04' ***}
 if ContainsDigit(TheWord) then begin iDigits := True;
end

[jamie]

I see there is a possibility that the function created here can falsely report the case.

 if should be "ContainsAllDigits"

 Problem here is the current function is looking any number within the string, so if there happens to be
Letters before or after for example, the function will falsely report a numerical string.

 I know in reality if things are going well the string should be all digits, but in the case of getting software to
work I think it should fail if the string isn't all numerical digits, don't you think ?

[JLWest]

@lucamar

Yea I finally caught that.
Works in the demo program.

Tahnks

[lucamar]

@jamie: Yes, of course, if that were what it is for. But according to specification (in the first post) it just has to return whether there's at least one digit, whatever the rest of the string contains.

Checking whether it's all digits would better be done with TryIntToStr(): if it fails it's not all digits

[JLWest]

@jamie: Yes, of course, if that were what it is for. But according to specification (in the first post) it just has to return whether there's at least one digit, whatever the rest of the string contains.

Checking whether it's all digits would better be done with TryIntToStr(): if it fails it's not all digits

"it just has to return whether there's at least one digit, whatever the rest of the string contains."

No that's exactly what I need.

I implemented the code in my program and I can't get it to work right.

Still trying. If I can't make it work will post the program and file on Google drive.