Hallo ich möchte ein String mit variabler Länge immer bis zur einer bestimmten Länge vorne mit 0 auffüllen. habe dazu folgende Function:
Delphi-Quellcode:
function FillString(AString: String; AChar: Char; ALength: integer): String;
var i:integer;
begin
FillChar(Result, ALength, Ord(AChar));
Result := copy(AString, 1, ALength) + copy(Result, ALength - Length(AString), ALength);
end;
aufrufen der Function:
BelegNr := FillString(BelegNr,'0',9);
leider bekomme ich beim Aufruf der function eine
Exception.
Exception-Klasse $C0000005 mit Meldung '
access violation at 0x0040e4c6: read of address 0x3030302c
was ist da falsch?