FUNCTION FC1373 : VOID
TITLE = 'FC_Char_To_String'
VERSION : '1.0'
AUTHOR : HeD
VAR_INPUT
Chars : ARRAY[0..67]OF CHAR;
Anzahl : INT;
END_VAR
VAR_TEMP
Zaehler : INT;
Anzahl_Byte : BYTE;
Zeichenkette_AT : STRING;
_Byte AT Zeichenkette_AT : ARRAY[0..1]OF BYTE;
_Chars AT Zeichenkette_AT : ARRAY[0..255] OF Char;
END_VAR
VAR_OUTPUT
Zeichenkette : STRING;
END_VAR
//Variable initialisieren
Zeichenkette_AT := '';
//Größe der Nutzdaten festlegen
Anzahl_Byte:=INT_TO_BYTE(Anzahl);
_Byte[0] := Anzahl_Byte;
_Byte[1] := Anzahl_Byte;
//Die Chars dem String zuweisen
FOR Zaehler := 1 TO 67 BY 1 DO
_Chars[Zaehler+1] := Chars[Zaehler];
END_FOR;
//Temp in Out kopieren
Zeichenkette := Zeichenkette_AT;
END_FUNCTION