Hi duff,
ich finde es toll, dass du deine Variablen nicht V001 oder Array123 nennst, aber Length() ist eine Standardfunktion und das finde ich dann auch wieder nicht so toll.
Um deine Längenangabe mit führenden Nullen in das Array zu scheiben könntest du auch so vorgehen:
Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
var
ca: array [1..4] of Char;
s: String;
i: Integer;
begin
i := 369;
// 4-stellig mit führenden Nullen
s := Format('%.4d', [i]);
// Übertragen von String nach Array
Move(s[1], ca[1], SizeOf(ca));
// Rückübertragen aus Misstrauen
s := ca;
// Anzeige zur Beruhigung
ShowMessage(s);
end;
Grüße vom marabu