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