Füllstand eines Arrays ermitteln?

[divBy0]

Was spricht dann gegen

Delphi-Quellcode:

const
  MyString = 'Hallo Welt...';

var
  MyStringLength: Integer;

MyStringLength := Length(MyString);

?

[Mavarik]

Na das ist ja wieder mal ein Glaskugel Thread...
Wie wäre es, wenn Du uns mal sagst:

A.) Was du hast
B.) Was du erreichen willst
C.) Zur Unterstützung der Frage ein bisschen Source

Mavarik...

Array Slots... habe ich auch noch nicht gehört...Man(n) lernt nie aus.

[Bjoerk]

So schlimm isses nun auch wieder nicht? Die Idee mit dem #0 von #15 finde ich übrigens besser als meine Variante.

Delphi-Quellcode:

const
  cMaxCharCount = 100;

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

..

function StrToCharArray(const S: string): TCharArray;
var
  I: integer;
begin
  for I := 1 to Length(S) do
    Result[I - 1] := S[I];
  Result[Length(S)] := #0;
end;

function CharArrayToStr(const Value: TCharArray): string;
var
  I: integer;
begin
  SetLength(Result, StrLen(Value));
  for I := 0 to StrLen(Value) - 1 do
    Result[I + 1] := Value[I];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  A: TCharArray;
begin
  A := StrToCharArray('Hallo');
  Showmessage(Format('%s %d', [CharArrayToStr(A), StrLen(A)]));
  Showmessage(Format('%s %d', [CharArrayToStr(A), Length(CharArrayToStr(A))]));
end;

[Jumpy]

Zitat von Mavarik:

Array Slots... habe ich auch noch nicht gehört...Man(n) lernt nie aus.

Halb-Ernsthafte Frage:

Was sagt man denn dazu? Items heißen die Dinger bei einer Irgendwas-List, aber beim Array?
Positionen?

Edit: Elemente geht. Danke Google.

[p80286]

Vielleicht währe es sinnvoll zu erfahren was der TE eigentlich will, sonst diskutieren wir gleich die unterschiedliche interpretation von Ansi- und wide-Chars in einem array of Byte unter Beachtung der unterschiedlichen API-schnittstellen......


Gruß
K-H