Crear fichero

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Archivo: TextFile;
begin
 if SaveDialog1.Execute then
  begin
   AssignFile(Archivo, SaveDialog1.FileName);
   {$i-} Rewrite(Archivo); {$i+}
   if LongBool(IOResult) then
    begin
     ShowMessage('Error de pacotilla :P'#13'No lo pude guardar pues...');
     Exit;
    end;
   WriteLn(Archivo, Label1.Caption);
   WriteLn(Archivo, Edit1.Caption);
   CloseFile(Archivo)
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var Archivo: TextFile; Linea: string;
begin
 if OpenDialog1.Execute then
  begin
   AssignFile(Archivo, OpenDialog1.FileName);
   {$i-} Reset(Archivo); {$i+}
   if LongBool(IOResult) then
    begin
     ShowMessage('GRrrr');
     Exit;
    end;
   ReadLn(Archivo, Linea); Label1.Caption := Linea;
   ReadLn(Archivo, Linea); Edit1.Caption := Linea;
   CloseFile(Archivo)
  end;
end;