Programmeren met Delphi  2  

Naar start 

 

Eigen code plaatsen.

Waar plaats je je eigen procedures en functies die door alle units gebruikt kunnen worden? Net als in een Pascal programma onder Dos maak je een separate unit met je eigen procedures en functies. Kies bij file new en kies voor unit. Deze geef je een eigen naam bijvoorbeeld mijnprocs. De unit waar je eigen procedures gebruikt moeten worden voeg je mijnprocs toe  in de uses declaratie. Dus eigenlijk geen verschil. Op deze plaats kun je ook net als vroeger de te gebruiken variabelen declareren, inclusief eigen filestructuren, records e.d. Handige functies zijn bijvoorbeeld het omzetten van tekst naar een real of integer en omgekeerd. Deze zul je zeker nodig hebben daar Delphi's invoervelden op tekst gebaseerd zijn. Vul de unit mijnprocs aan met onderstaande.

unit mijnprocs;

interface

var
mijnreals:array [1..10] of real;

function txt_real(tekst:string):real;
function real_txt(getal:real):string;

implementation

function txt_real;
var test       :integer;
     uitkomst:real;
begin
  txt_real:=0.0;
  val(tekst,uitkomst,test);
  if test=0 then txt_real:=uitkomst
end;

function real_txt;
var tekst:string;
begin
  str(getal:8:2,tekst);
  real_txt:=tekst;
end;

end.

Om deze functies te testen plaatsen we op de form (form1) 2 edit-velden. Edit1 en Edit2. Bij events van edit1 dubbelklikken we achter Edit1Change en voegen de regel toe (zie onder). Aan de Bitbtn1 knop verbinden we (door er dubbel op te klikken) ook een procedure en voegen hier ook een regel toe. Even laten runnen en kijken of het werkt.

procedure TForm1.Edit1Change(Sender: TObject);
begin
  mijnreals[1]:=txt_real(edit1.text);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  edit2.text:=real_txt(mijnreals[1]);
end;