Hallo,
wieso nicht einfach so:
Delphi-Quellcode:
type
TCharArray =
array[0..259]
of Char;
function CharToStr(chr: TCharArray):
string;
begin
Result := chr;
end;
function StrToChar(str:
string):TCharArray;
begin
if Length(str) > Length(Result) - 1
then
raise Exception.Create('
Nicht genügend Platz im Array!');
StrPCopy(Result, Str);
end;
Arrays lassen sich nicht direkt als Ergebnistyp einer Funktion angeben, daher
der Umweg über die Typdefinition.
Nullbasierte Arrays of Char können direkt an eine String-Variable zugewiesen
werden. Den umgekehrten Weg kann man mit StrPCopy gehen, wobei man aber die
Überprüfung der Array-Größe nicht vergessen sollte.
jkr