Notenprogramm

[raccoon]

also den quellcoe gerade hab ich im mit dem button delphi code eingefügt, also zwischen (delphi.../delphi) jetzt keine komentare ich weiß sind falsche klammern wolt es nur veranschaulichen*g*

nunaj also wie gesagt der savedialog funktioniert nicht mit dem quellcode den ich oben angegeben habe wobei er funktionieren müsste es sei denn ich habe eine uses funktion vergessen einzufügen. desweiteren funktioniert das öffnen auch nicht so ganz, hier ist der quellcode. dort meldet er mir den fehler allocmem kennt er nicht und freemem. wurden diese geändert?

Delphi-Quellcode:

var
  iFileHandle: Integer;
  iFileLength: Integer;
  iBytesRead: Integer;
  Buffer: PChar;
  i: Integer
begin
  if OpenDialog1.Execute then
  begin
    try
      iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
      iFileLength := FileSeek(iFileHandle,0,2);
      FileSeek(iFileHandle,0,0);
      Buffer := PChar(AllocMem(iFileLength + 1));
      iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);

      FileClose(iFileHandle);
      for i := 0 to iBytesRead-1 do
      begin
        Sg.RowCount := Sg.RowCount + 1;
        Sg.Cells[1,i+1] := Buffer[i];
        Sg.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
      end;
    finally
      FreeMem(Buffer);
    end;
  end;