Strin an ShortString zuweisen, wie?

[Incocnito]

Hi,

"if ShortString = String then" sollte gehen, notfalls hart casten
also "if (String(FCommand.MenuName) = 'Mein Tool') then", aber

Delphi-Quellcode:

function TRegisteredCommand.GetMenuName: ShortString;
var i: Integer; s: ShortString;
begin
  s := '';
  i := 0;
  while (FMenuName[i] >= ' ') do
  begin
    s := s + FMenuName[i];
    inc(i);
  end;

  Result := s;
end;

ist mir etwas zu gefährlich ... dann lieber:

Delphi-Quellcode:

function TRegisteredCommand.GetMenuName: ShortString;
var i: Integer;
begin
  Result := '';
  for i := Low(FMenuName= to High(FMenuName) do
  begin
    if (FMenuName[i] < ' ') then Break;
    Result := Result + FMenuName[i];
  end;
end;

Die zusätzliche Variable "s" hab ich auch mal rausgenommen.
Aber mir geht es eigendlich darum, dass das Array evtl. nicht initialisiert ist,
und dementsprechend er lustig über den Tellerrand laufen könnte ... glaube ich ... theoretisch ... unter Umständen ... Aber vielleicht ist das schon das ganze Problem.

LG
Incocnito