String Index Error Delphi Seattle

Question

When completing a certain method that calculates a value, and sets a TText.text to that value, I get the following error thrown:

'String index out of range. (-1) Must be >=0 and <=0'

I made sure my calculation was safe and handled possible exceptions before and after they may occur. It is really just a simple addition calculation....

A quick google search led me to: Firemonkey: Setting TLabel Text causes String Index out of Range Exception

1) I am not using carriage returns though, nor any line breaks. This is my code for setting the ttext value -

TotalCost.text:='$'+FormatFloat('0.00',total);

2) It is not a TLabel, but a TText component.

3) This does not throw any errors on any Android Device, the simulator or my 4th gen iPad running iOS 9.0.2, but DOES throw errors on the newer iPhones also running iOS 9.

Any ideas on a workaround or bug fix? Hard to debug which line exactly throws the error since I do not have direct access to a newer iPhone nor does the devices I have or simulator throw an exception when debugging.

Thanks

why the close vote? Because my question is too 'lengthy, or not concise'? Well isn't that contradictory to how often I see Stack Overflow normals blast new members for the questions not providing enough details? — ThisGuy
– ThisGuy, Commented Oct 21, 2015 at 20:04
You need to do some debugging. Quite hard to see how we can help. Narrow the problem down, isolate it. — David Heffernan
– David Heffernan, Commented Oct 21, 2015 at 21:46
The error message is odd, sounds as though whatever is producing it would only be satisfied with a String index of zero. Hey ho ... — MartynA
– MartynA, Commented Oct 21, 2015 at 21:50
This particular exception comes from the functions in the System.Character class when passed string indexes as parameters. Up to, and including, XE8, those functions expect 1-based indexes on all platforms. But the error message says the index must be >=0 (it says >=1 in XE8), so EMB must have updated the functions in Seattle to account for 0-based strings on mobile platforms, and that change is apparently broken in some cases. I don't have Seattle installed to verify this, though. — Remy Lebeau
– Remy Lebeau, Commented Oct 21, 2015 at 23:05
Can you provide a short, self contained example that illustrates the problem? — Shannon Matthews
– Shannon Matthews, Commented Oct 22, 2015 at 4:52

David Heffernan · Accepted Answer · 2015-10-22 16:53:41Z

1

The index is raised in System.Character by a call to CheckZeroStringRange. The relevant definitions:

resourcestring
  sArgumentOutOfRange_StringIndex = 
    'String index out of range (%d).  Must be >= %d and <= %d';

class procedure TCharHelper.RaiseCheckStringRangeException(Index, LowIndex, 
  MaxIndex: Integer);
begin
  raise EArgumentOutOfRangeException.CreateResFmt(@sArgumentOutOfRange_StringIndex, 
    [Index, LowIndex, MaxIndex]) at ReturnAddress;
end;

procedure CheckZeroStringRange(const S: string; Index: Integer); inline;
var
  MaxIndex: Integer;
begin
  MaxIndex := High(S);
  if (Index > MaxIndex) or (Index < 0) then
    Char.RaiseCheckStringRangeException(index, 0, MaxIndex);
end;

Now your error indicates that your code is trying to access a zero-based string of length 1, with index -1. That is what your error message tells you.

There are 20 calls to CheckZeroStringRange in System.Character. They are all very similar and look like this:

class function TCharHelper.IsDigit(const S: string; Index: Integer): Boolean;
var
  C: UCS4Char;
begin
  CheckZeroStringRange(S, Index);
  C := UCS4Char(S[Index]);
  if IsLatin1(C) then
    Result := C in [$0030..$0039] // '0' / '9'
  else
    Result := InternalGetUnicodeCategory(ConvertToUtf32(S, Index)) = 
      TUnicodeCategory.ucDecimalNumber;
end;

So, something in your program is making a call that looks like this:

if TCharHelper.IsDigit(str, -1) then // BOOM!

Of course, it won't be exactly like this, but this is as much as we can discern.

Your next step is to do some debugging. If you cannot debug directly on the device, you need to add some trace logging to your program to identify the sequence of calls that lead to the error. The defect could be in your code, or it could be in the Delphi library code, or it could be in some third party code that you use. Again, we cannot say.

I don't think any more information can be provided given the facts you present in the question.

answered Oct 22, 2015 at 16:53

David Heffernan

616k46 gold badges1.1k silver badges1.5k bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

alitrun Over a year ago

No this is a problem with Tlabel or string (checked on Delphi Berlin). Set GlobalUseGPUCanvas := true; and try this string:

alitrun Over a year ago

TEXT1 = 'Google Docs is, at long last, getting a grammar-checking feature, which’ll be able to identify mixed up words (like “affect” and “effect”), '#$A'incorrect tenses, improper uses of commas and clauses, and more. To do all of that, Google says it’ll be' + ' relying on machine translation — the same '#$A'technology it uses to translate between multiple languages. Except, instead of translating a sentence from, say, French to German, it sounds as '#$A'though it’ll be translating your imperfect writing into' + ' a grammatically correct passage. '#$A#$A'';

alitrun · Accepted Answer · 2018-08-22 21:31:36Z

0

I had same error, when I'm using #10 as line break (GlobalUseGPUCanvas := true). I changed it to #13#10 and it works.

answered Aug 22, 2018 at 21:31

alitrun

1,24812 silver badges15 bronze badges

Collectives™ on Stack Overflow

String Index Error Delphi Seattle

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related