noob frage: array [0..259] of char in string un umgekehrt

[Weazy]

Eine komponente die ich benutze hat ein property mit dem typ array [0..259] of char. Dieses property möchte ich nun schreiben und lesen. Hier ist mein versuch, doch es klappt irgendwie nicht so ganz...

Delphi-Quellcode:

function CharToStr(chr: array [0..259] of char):string;
var
i:integer;
begin
for i:=0 to 259 do
result[i]:=chr[i];
end;

function StrToChar(str:string):array [0..259] of char;
var
i:integer;
begin
for i:=0 to 259 do
result[i]:=str[i];
end;

[3_of_8]

Bei CharToStr erst noch ein setlength(result, length(chr));

Aber eigentlich müsste das auch als direkte Zuweisung funktionieren, also Result:=chr; und umgekehrt.

[Rastaman]

Array of char is doch das Gleiche wie String oder? :shock:

@3_of_8: SetLength bei vorgegebener Größe von 260? Is das nich nur für dynamische Arrays?

[TBx]

Du bekommst schon alleine deshalb Probleme, weil die Indizierung von Strings bei 1 beginnt und nicht wie von Dir gecoded bei 0.

Gruß

onlinekater

BTW: Was ist das für eine Komponente? Es wird ja sicherlich seinen Grund haben, dass ein solches array of char verwendet wird. Sollte es womöglich passieren können, dass ein Element dieses Arrays #0 ist? Dann wäre mit erreichen dieses Elementes der String automatisch zu Ende.

[3_of_8]

@Rastaman: Sein Rückgabetyp ist ein String, kein String[260]. Und er kann nicht einfach in einen String mit noch nicht zugewiesenem Speicher schreiben, weil ein Leerstring nämlich standardmäßig auf nil zeigt. Und ein array of Char ist nicht ganz das gleiche wie ein String. Es ist im Speicher fast das gleiche, aber die Compiler Magic schlägt beim String mehr zu und außerdem hängt an Strings immer noch ein #0 dran.

[Hansa]

Zitat:

Zitat von Weazy

..array [0..259] of char... doch es klappt irgendwie nicht so ganz...

Wie üblich wurde die genaue Fehlermeldung unterschlagen und dann die Frage gestellt. 8) Wundert mich allerdings, dass keiner bemerkt hat, dass der Wert nicht im Bereich von 0..255 liegt, sondern darüber hinausgeht.

[Sunlight7]

Zitat:

Zitat von Hansa

Wundert mich allerdings, dass keiner bemerkt hat, dass der Wert nicht im Bereich von 0..255 liegt, sondern darüber hinausgeht.

Mich nicht, weil vielleicht MAX_PATH (260 Zeichen) von der Komponente verwendet wird.

Delphi-Quellcode:

type
  TChr=array[0..259] of char;

function CharToStr(chr: TChr):string;
begin
   Result:=Chr;
end;

function StrToChar(str:string):TChr;
begin
   StrPLCopy(Result, Str, 260);
end;

[Hansa]

Dann wundert Dich das wohl auch kaum :

Zitat:

Zitat von Weazy

for i:=0 to 259 do
result[i]:=chr[i];

[Sunlight7]

Das wurde 1. schon angesprochen, 2. von mir nicht weiter verwendet und wär 3. ne (umständliche) Möglichkeit, wenn wie bereits gesagt SetLength verwendet und der kleine Fehler korrigiert würde...

Delphi-Quellcode:

for i:=0 to 259 do
result[i+1]:=chr[i];

[Hansa]

Welches Zeichen ergibt denn :

Delphi-Quellcode:

ch := chr (259);

Macht das Sinn ? :mrgreen: