Record in Datei speichern

[Bjoerk]

Delphi-Quellcode:

procedure ChangeValue(var Value: integer);
begin
  Value := 10;
end;

procedure NotChangeValue(Value: integer);
begin
  Value := 10;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: integer;
begin
  I:= 1;
  NotChangeValue(I);
  ShowMessage(IntToStr(I));
  ChangeValue(I);
  ShowMessage(IntToStr(I));
end;