Füllstand eines Arrays ermitteln?

[DeddyH]

Kleiner Test:

Delphi-Quellcode:

procedure TFormTest.Button1Click(Sender: TObject);
const
  CONTENT = 'Hallo Welt' + #0; //#0 = Stringendezeichen
var
  Arr: array[0..255] of char;
  idx: integer;
begin
  for idx := 1 to Length(CONTENT) do
    Arr[idx - 1] := CONTENT[idx];
  ShowMessage(IntToStr(StrLen(Arr)));
end;

[Bjoerk]

Man könnte das Array vorher mit Null Werten füllen. Dann kann man die Länge bestimmen. Ist allerdings Steinzeit und auch fehleranfällig.

Delphi-Quellcode:

const
  cCharNil = #27;
  cMaxCharCount = 100;

type
  TCharArray = array [0..cMaxCharCount - 1] of char;

function GetClearCharArray: TCharArray;
var
  I: integer;
begin
  for I := 0 to cMaxCharCount - 1 do
    Result[I] := cCharNil;
end;

function GetCharArrayCharCount(const Value: TCharArray): integer;
begin
  Result := cMaxCharCount;
  while (Result > 0) and (Value[Result - 1] = cCharNil) do
    Dec(Result);
end;

[baumina]

-- gelöscht --