Struktur > 2Gb

[p80286]

Hallo zusammen,

ich habe eine "uralte" Funktion von D XE übersetzen lassen und bin mit der Meldung "Struktur >2GB" belohnt worden.
Ich könnte jetzt einfach ein paar Byte abzwacken, aber "richtig" wäre diese Lösung nicht.
Könnt Ihr mir einen (oder mehrere Tips geben wie ich das Problem "ordentlich" lösen kann?

Delphi-Quellcode:

procedure copyStr2Ara(const ins:string;pa:pointer;lange:cardinal);
type
  ta = array [0..maxint-1] of char;
var
  sizeofa:cardinal;
  tocopy :cardinal;
begin
  sizeofa:=lange*sizeof(char);
  if sizeofa>0 then begin
    tocopy:=sizeof(char)*length(ins);
    if tocopy<=sizeofa then begin
      if tocopy>0 then
        move(ins[1],ta(pa^)[0],tocopy);
      if tocopy<sizeofa then fillchar(ta(pa^)[tocopy],sizeofa-tocopy,' ');
    end
    else
      move(ins[1],ta(pa^)[0],sizeofa);
  end;
end;

(gerade ist mir aufgefallen, daß das füllen mit Blanks nicht unicode-tauglich ist, bitte ignoriert das)Gruß
k-H

[mkinzler]

Nimm statt Char AnsiChar

[himitsu]

Abgesehn davon, daß der Typ ta nutzlos ist.

Verwende statt ta(pa^)[0] einfach nur pa^ oder PChar(pa)^ .
( ta = array [0..MaxInt div SizeOf(Char)-1] of char; )

Und wenn die Größe egal ist, dann hätte auch ta = array [0..0] of char; ausgereicht.
Zusätzlich ist das 0..0 ein Sonderfall, den dieses Array verfügt dann über keine Bereichsprüfung (sollte Dieses in den Projektoptionen aktiviert sein).


PS: Ist FillChar ANSI oder Unicode? (wobei die OH und ich es eigentlich nur mit einem Byte-Parameter kennen )

[p80286]

Zitat von mkinzler:

Nimm statt Char AnsiChar

Manchmal sieht man halt das naheliegende nicht.

Zitat von himitsu:

Abgesehn davon, daß der Typ ta nutzlos ist.

Verwende statt ta(pa^)[0] einfach nur pa^ oder PChar(pa)^ .
( ta = array [0..MaxInt div SizeOf(Char)-1] of char; )

Und wenn die Größe egal ist, dann hätte auch ta = array [0..0] of char; ausgereicht.
Zusätzlich ist das 0..0 ein Sonderfall, den dieses Array verfügt dann über keine Bereichsprüfung (sollte Dieses in den Projektoptionen aktiviert sein).

ta ist ja nur ein Vehikel um den Daten hinter dem Pointer einen Namen (Struktur) zu geben.
Wenn ich das mit Array [0..0] of.. Erreiche soll's mir recht sein. Ich finde dazu aber nichts in der OH. Kannst Du mir da einen Tip geben?

Gruß
K-H