Zahl aus Edit-Text-Feld einlesen

[kaddy]

Hallo Netz,
ich will eine Zahl aus einem Edit-Text-Feld einlesen und mit der weiterrechen. Ich habe es folgendermaßen definiert, aber es funktioniert nicht.

Delphi-Quellcode:

type

datarec = record 
            k1:integer;
            k2:integer;
            populat:integer;
            periods:integer;
            products:integer;
            strg_len:integer;
            delay:boolean;
            [color=#ff003b]generat:longint;
            [/color]opt_gnr:longint;
            opt_ok:boolean;
            opt_take:boolean;
            opt_time : real;
            opt_fit  : extended;
            opt_start: boolean;

var
   data : datarec; 

data.generat := strtoint(edit1.text);

Was mache ich falsch?

Danke!

Gruß
Kaddy
[Edit=FuckRacism]Delphi-Tax hinzugefügt; MfG Roman[/Edit]

[RomanK]

Du hast das end nach der Typendefinition vergessen.

PS: Wenn du den Fehler den dir der Compiler ausgibt beim nächsten Mal auch dazuposten könntest wäre gut. Danke.

[Mirilin]

Code:

type
  datarec = record
    k1:integer;
    k2:integer;
    populat:integer;
    periods:integer;
    products:integer;
    strg_len:integer;
    delay:boolean;
    generat:longint;
    opt_gnr:longint;
    opt_ok:boolean;
    opt_take:boolean;
    opt_time : real;
    opt_fit : extended;
    opt_start: boolean;
  end;
...
procedure TMainForm.ButtonIntClick(Sender: TObject);
begin
  dr.generat := StrToInt(EditInt.Text);
end;

funktioniert bei mir : end vergessen.

[kaddy]

Hi,
danke. Geht aber trotzdem nicht. Die Fehlermeldung ist:
undeclared identifier: 'edit1'
Gruß
Kaddy

[Mirilin]

Hast Du auf deiner Form ein TEdit mit Namen Edit1?

[mirage228]

NamesDesFormularesVonEdit1.Edit1 Also musst du den Namen des Formulares vor Edit1 tun

versuchs ma!

mfG
mirage228

[kaddy]

Danke für die schnellen Antworten.

TEdit habe ich. Mit dem Namen klappt das auch nicht.

Gruß
Kaddy

[Mirilin]

Poste mal deine Unit

[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]

[Haegar]

ich glaub er meint die andere unit...wird standardmäßig als Unit1 benannt, da steht dann z.B. drauf

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    edit_zahl: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
.....

dort wo hier edit_zahl steht, ist bei dir der name deines edits. schuam mal nach

gruss haegar