Deutsches Lazarusforum

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file;
  i: Word;
begin
  AssignFile(f, '/root/test.txt');
  {$i-}
  Rewrite(f);
  i := IOResult;
  if i <> 0 then
    ShowMessage('Fehler: ' + IntToStr(i));
  CloseFile(f);
end;  

Code: Alles auswählen

var
  App: TMyForm;

begin
  Application.Initialize; // Muss eingefügt werden.
  App := TMyForm.Create(nil);
  App.ShowModal;
  App.Free;
end.