Thema: Delphi GetMem, FreeMem

Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#1

GetMem, FreeMem

  Alt 8. Feb 2004, 17:17
hoi,

was ist hieran falsch?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
type
  TNamen = Record
    vName: string;
    nName: string;
  end;
var
  Namen: ^TNamen;
begin
  GetMem(Namen, SizeOf(TNamen));
  Namen^.vName := 'Mario';
  Namen^.nName := 'Kellner';
  ShowMessage(Namen^.vName + ' ' + Namen^.nName);
  FreeMem(Namen, SizeOf(TNamen));
end;

ich kann auf den elementen des arrays nichts zuweisen, immer zugriffsfehler
Mario
  Mit Zitat antworten Zitat