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;