Array of Char an zweiter Stelle füllen

[marabu]

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