UIMsgWrite mehrsprachig benutzen

Hallo RobiMan,

das Problem ist, das UiMsgWrite ein 1-dimensionales und nicht ein 2-dimensionales String-Array erwartet und das man aus Arrays nur Einzelelemente, in Deinem Falls Strings, auslesen kann.

Der Zugriff auf das Array mit myMsgArray{nLanguage} erzeugt die folgende Fehlermeldung:

Type error(36): Incorrect number of indices in index list for array myMsgArray with 2 dimension(s).

Des Weiteren ist die Deklaration Deines 2-dimensionalen Arrays falsch.

Anstelle von "VAR string myMsgArray{5,2}:=" müsste die Deklaration wie folgt lauten "VAR string myMsgArray{2,5}:=".

Die beste Möglichkeit hier wäre den Meldungstext Sprachen abhängig in ein 1-dimensionales Array umzukopieren und dieses dann für die Ausgabe zu verwenden.

Das ganze könnte dann wie folgt aussehen:

MyUIMsgWrite myHeader, myMsgArray,\Icon:=iconInfo;


PROC MyUIMsgWrite(string Header,string MsgArray{*,*}\switch Wrap\icondata Icon
     \string Image\PERS bool PersBool|string PersBoolName\bool AbortValue
     \VAR signaldo UIActiveSignal)

  VAR string msg{5};

  FOR i FROM 1 TO 5 DO
    msg{i}:=MsgArray{nLanguage,i};
  ENDFOR

  UIMsgWrite Header,msg\Wrap?Wrap\Icon?Icon\Image?Image\PersBool?PersBool
   PersBoolName?PersBoolName\AbortValue?AbortValue\UIActiveSignal?UIActiveSignal;

ENDPROC

Wenn es dir um die Anzeige einer Meldung mit dem Signalnamen beim Warten auf ein Signal geht, könntest du die die Warteinstruktion z.B. WaitDi mit dem optionalen Parameter "Visualize" erweitern:

waitdi di1,high\Visualize;

dann erscheint z,B. die folgende Meldung in der Sprache die am FlexPendant eingestellt ist:

Hey,

Hab das selbst noch nicht so ausprobiert, aber abgesehen von der angesprochenen Vertauschung der Indizes, könntest du ja vielleicht eine Struktur anlegen und diese in ein Array packen.

Also sowas wie:

RECORD langMsg

string Msg{5};

ENDRECORD

VAR langMsg lMsg{2} := ...

....

lMsg{n}.Msg

vielleicht geht das.

Ich selbst hab hier einen bisschen anderen Ansatz mal implementiert. Einfach ein Modul mit allen Meldungen etc... anlgen. Wenn die Sprache umgestellt werden soll, einfach Modul mit den Definitionen in anderer Sprache ersetzen.

BG Reinhard