Stringlänge in einer Funkctionvariable bezrenzen

[gandime]

Hi,
ich möchte eine Stringlänge in einer Funkctionvariable bezrenzen also sozusagen das blos halt in richtiger Form
function das(s:string [1]):string;

[pilic]

Wieso so kompliziert? Du kannst es ja innerhalb der Funktion überprüfen mit Length() oder mit SetLength() den String abschneiden

[Cyf]

Weil er die Variable z.B. noch benutzen will (falls er sich enschließt daraus keine eigene Funktion zu machen, oder Übergabe per Referenz, etc.).

Delphi-Quellcode:

function das(str: string): string
begin
  Result:= format('%.3s', ['foobar']);
end;

[gandime]

natürlich würde ich die Variable nochmal abrufen und ich möchte damit zeigen das die function nur ein zeichen zulässt

[Dax]

Für einzelne Zeichen gibts Char.

[alzaimar]

Delphi-Quellcode:

Type
  TStringMitMax80Zeichen = String[80];

{$R+}
Function MyFunc (sParameter : TStringMitMax80Zeichen );
Begin
....
End;
{$R-}

Wo und wie die Bereichsprüfung ($R) hier als Kompileroption genau implementiert wird, kannst du noch ausprobieren.

[hoika]

Hallo,

der Compiler-Schalter sollte nicht notwendig sein,
String[80] ist ja automatisch ein ShortString.


Heiko

[gandime]

jo danke ich so gehts

[alzaimar]

Zitat von hoika:

der Compiler-Schalter sollte nicht notwendig sein,String[80] ist ja automatisch ein ShortString

Würde denn ohne Compilerschalter ein impliziter Typecast von AnsiString => String[80] beim Aufruf nicht zu einem Pufferüberlauf führen?

[angos]

[edit] und weg damit.[/edit]