Strin an ShortString zuweisen, wie?

[bcvs]

Und wieso jetzt noch der Shortstring?

Ich würde so etwas machen:

Delphi-Quellcode:

type
  TRegisteredCommand = class(TObject)
  private
    FMenuName: String;
  public
    property MenuName: string read FMenuName write FMenuName;
  end;

FCmd := TRegisteredCommand.Create;
FCmd.MenuName := FIniFile.ReadString('Command','Menuname','');

[Uwe Raabe]

Das ist alles doch viel zu kompliziert. Eine Zuweisung von string zu ShortString oder z.B. string[31] und umgekehrt funktioniert aus dem Stand:

Delphi-Quellcode:

program Project598;

{$APPTYPE CONSOLE}

var
  nMenu: string;
  sMenu: string[31];
begin
  nMenu := 'Hello World';
  sMenu := nMenu;
  Assert(nMenu = sMenu);
  sMenu := 'Hello World';
  Assert(nMenu = sMenu);
  nMenu := sMenu;
  Assert(nMenu = sMenu);
end.

[cpux86]

Zitat von Uwe Raabe:

Das ist alles doch viel zu kompliziert. Eine Zuweisung von string zu ShortString oder z.B. string[31] und umgekehrt funktioniert aus dem Stand:

Delphi-Quellcode:

program Project598;

{$APPTYPE CONSOLE}

var
  nMenu: string;
  sMenu: string[31];
begin
  nMenu := 'Hello World';
  sMenu := nMenu;
  Assert(nMenu = sMenu);
  sMenu := 'Hello World';
  Assert(nMenu = sMenu);
  nMenu := sMenu;
  Assert(nMenu = sMenu);
end.

Schön wäre das ja, aber da scheint es dann Probleme zu geben, wenn ich an eine Klasseneigenschaft zuweise. FCmd.Menuname ist nach wie vor leer. Wo könnte ich da noch suchen? Steh auf dem Schlauch. Werde aber den obigen Code testen.

[Uwe Raabe]

Zitat von cpux86:

FCmd.Menuname ist nach wie vor leer. Wo könnte ich da noch suchen?

Ich hab jetzt nicht so genau geschaut, aber eventuell überträgst du die Stringlängen nicht (korrekt)?

Wie gesagt, wenn du statt array[0..31] of AnsiChar einfach string[31] schreiben würdest, dann klappt das auch mit der simplen Zuweisung. Falls nicht, dann zeig doch mal ein minimales Beispiel.

[cpux86]

Ok, da will ich mal ein Beispiel hoch laden:

[Uwe Raabe]

Ich habe das mal so geändert, wie ich es vorgeschlagen hatte.

[cpux86]

Super, Danke wie verrückt. Jetzt muss ich das in meiner Anwendung noch so umstellen.