Re: TZF - Topaz - but rather a Delphi question

Pierre,

>> Changing my DOS Files to Delphi and Topaz, I can't continue. My problem
is the following:

When I went that way I discovered very quickly that it was faster to rewrite
the programs, although I did use procedures and functions from the DOS
programs. The UI is completely different.

>> How can I achieve to enter the "while not eof (Daily-Patients) do
begin"-loop and enter the two TzEditMask-Components similar to DOS ?

You cannot do it really similar to DOS. You need to create a form, put on it
two Labels and two TzEdit boxes and scan the file something like:

while not TzDBF1.eof do
begin
    TzEdit1.text := '';   {label1.caption := 'Treatment number:'}
    TzEdit2.text := '';  {label2.caption := 'Treatment quantity:'}
    if StrToInt(TzEdit.text) <>0 then <write to the file>
   skip
end;{while}

Best wishes,

Eitan.
URL: http://perso.wanadoo.fr/eitang

==^================================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^================================================================