Zahl aus Edit-Text-Feld einlesen

[kaddy]

Delphi-Quellcode:

unit sim_tab;

interface

uses constant,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Menus, StdCtrls;

type

    datarec = record                             
k1:integer;
            k2:integer;
            populat  : integer;          
            periods  : integer;          
            products : integer;          
            strg_len : integer;          
            delay    : boolean;            
            generat  : longint;   
end;         
 
 procedure t_s;                        
function reset_data(nobatch : boolean) : boolean;

implementation

var
   ch : char;
    s : string;
    ofi:text;

procedure t_s;

type
    t_runtime = array[1..24] of word;

var
   log : boolean;                      { Hilfsvariable }
   graph_ok : boolean;                 { Grafiktest }
   ind : integer;                      { Laufvariable der Individuen }
   generation : integer;               { Laufvariable der Generationen }
   time : t_runtime;                   { Zeitnahme }
   old_1 : real;                       { alten Wert merken aus Erg.-liste }
   old_2 : real;                       { alten besten Wert merken }
   bad : boolean;                      { Hilfsvariable }
   tab : word;                         { Laufvar. f�r L„nge der Tabu Liste }
   prd : word;                         { Laufvariable der Produkte }
   gen : integer;                      { laufvariable der R�stvariblen(gene) }
begin
   data.k2:=data.periods*data.products*10;

if Protokoll_ausgeben then
   begin
   ASSIGN(Ofi,'TABUVERL.TXT');
   rewrite(ofi);
   end;
     if not data.chk_data then         { Wenn Daten noch nicht initialisiert }
         log := reset_data(true)       { sind, werden sie es jetzt.R�ckgabe- }
     else                              { wert log zeigt, daá die Daten im    }
         log := true;                  { g�ltigen Bereich sind, nur dann     }
     if log then                       { geht es weiter }
     begin
     data.generat := strtoint(edit1.text);

Ist ein alter Pascalcode, den ich in Delphi umschreiben möchte.

Gruß
Kaddy

[edit=Daniel B]Delphi-Tags ergänzt. MfG Daniel B.[/edit]