Sorry ik had moeten vermelden dat A en B tweedimensionale arrays zijn en zelfs constante arrays. Als ik het programma zo run krijg ik een foutmelding dat ik 2GB overschrijd en als ik die MaxListSize vervang door 30 dan blijft Memo1 gewoon leeg. Bedankt in ieder geval voor de reacties!
Delphi Code:
type
PStringArray = ^TStringArray;
TStringArray = array[0..MaxListSize, 0..MaxListsize] of String;
var
A: array[0..10,0..10] of String;
B: array[0..20,0..20] of String;
X: Boolean;
C: PStringArray;
procedure UpdateC;
begin
if X then
C := @A
else
C := @B;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 10 do
A[I,0] := 'Dit is string A' + IntToStr(I);
for I := 0 to 20 do
B[I,0] := 'Dit is string B' + IntToStr(I);
X := True;
UpdateC;
Memo1.Lines.Add(C[2,0]);
X := False;
UpdateC;
Memo1.Lines.Add(C[4,0]);
end;
Bookmarks