delphi set max length for Argument of string in a method

[bravesofts 6]

is there a possible way to SetLength using [Max Length] for arg of string in a Method ?

function foo(aValue: string [20]): Result;
procedure foo(aValue: string [20]);

this question is just a Curious question and nothing more ..

Edited September 22, 2021 by bravesofts

[David Heffernan 2345]

I don't understand the question. Obviously the code here is not valid. Can you describe what you want to achieve. 

[bravesofts 6]

8 minutes ago, David Heffernan said:

I don't understand the question. Obviously the code here is not valid. Can you describe what you want to achieve. 

the valid code that can fit to my question is this:

type
  TTwenty: string [20];

function foo(aValue: TTwenty): Result;
procedure foo(aValue: TTwenty);

i hope my question is clear now

-----------

is ther a way to avoid declaring a new custom types for every arg ?

-----------

Note: My question is Always a Curious question  ..

Edited September 22, 2021 by bravesofts

[Lajos Juhász 293]

type
  TTwenty: string [20];

 

This is a shortstring and should not be used in programs as it is only for backward compatibility.

[Vandrovnik 214]

5 minutes ago, bravesofts said:

the valid code that can fit to my question is this:

type
  TTwenty: string [20];

function foo(aValue: TTwenty): Result;
procedure foo(aValue: TTwenty);

i hope my question is clear now

-----------

is ther a way to avoid declaring a new custom types for every arg ?

string[20] is, AFAIK, ansi string (= expect problems...).

[David Heffernan 2345]

11 minutes ago, bravesofts said:

is there a way to avoid declaring a new custom types for every arg?

No there is not.

 

However, you really should not be using short strings at all. These only exist for backwards compatibility with legacy code.

[bravesofts 6]

11 minutes ago, David Heffernan said:

No there is not.

 

However, you really should not be using short strings at all. These only exist for backwards compatibility with legacy code.

It seems to me that this technique is not implemented yet !! (not only delphi maybe all languages)

---------

and thank you All for the Advice about the shortstring ...

Edited September 22, 2021 by bravesofts

[Lars Fosdal 1792]

foo(Copy(aValue, 1, 20));

 

[Guest]

If you are on the paranoid side, use asserts or throw an exception.

You could wrap these raises in {$IFDEF DEBUG} compiler directives (or your own XTRADEBUG or some such) if you are hot on performance.

 

HTH

[Fr0sT.Brutal 900]

ShortString is limited to 255 characters so you have not so much types to declare