Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Untyped Binary Files

    Delphi
    by sk.Silvia, 21. Feb 2006
  procedure TForm1.Button1Click(Sender: TObject);
  var MFile:file;
  var i1,tmp:integer;
  begin
  randomize;
  AssignFile(MFile,'cisla.bin');
  rewrite(MFile,1);
  for i1:=1 to 25 do
  begin
  tmp:=random(500);
• Forum: Object-Pascal / Delphi-Language

  Re: Untyped Binary Files

    Delphi
    by sk.Silvia, 21. Feb 2006
  iam starting to get crazy :
  
  
  procedure TForm1.Button1Click(Sender: TObject);
  var MFile:file;
  var i1,tmp:integer;
  begin
  randomize;
  AssignFile(MFile,'cisla.bin');
  rewrite(MFile,1);
• Forum: Object-Pascal / Delphi-Language

  Re: Untyped Binary Files

    Delphi
    by sk.Silvia, 19. Feb 2006
  thanks
  
  i made a bit investigation using ShowMessage steping
  
  1) with pointer : when i add @ it writes me an error : variable required - but thats not the problem tmp without @ seems to be right
  
  2) as i was tracking it, it looks like it dont handle eof(MFile) and make one more cycle which is fatal! - i have no clue why eof dont works (althrought it works right by button1 procedure)
  ...
• Forum: Object-Pascal / Delphi-Language

  Re: Untyped Binary Files

    Delphi
    by sk.Silvia, 19. Feb 2006
  thanks for ideas
  
  it dont points into any part of code, just the fallowing message after pressing button3:
  
  Project Project1.exe raised eception class EAccessViolation with message 'Access violation at address 00000000. Read of address 00000000'. Process stoped. Use Step or Run to continue.
  
  it dont helps to close the file before changing from write to read, also it dont helps to compleate...
• Forum: Object-Pascal / Delphi-Language

  Untyped Binary Files

    Delphi
    by sk.Silvia, 19. Feb 2006
  hi there everybody!
  
  iam getting problems with this:(
  the main thing is, by pressing Button1 i cretae, write in and read an untyped binary file, but when i press then button 3 i get an access violation (iam using the same read method!) WHY???
  
  I understand also good german...:)
  
  ----------------------------------------------------------
  procedure TForm1.Button1Click(Sender: TObject);
  var...