Delphi 8 funzt net wie ichs gelernt habe!

[Preexo]

Hi

Delphi-Quellcode:

unit uhaupt;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data;


type
  TWinForm = class(System.Windows.Forms.Form)
  {$REGION 'Vom Designer verwalteter Code'}
  strict private
    /// <summary>
    /// Erforderliche Designervariable.
    /// </summary>
    Components: System.ComponentModel.Container;
    lbl_peis: System.Windows.Forms.Label;
    edit_bruttopreis: System.Windows.Forms.TextBox;
    lbl_steuer: System.Windows.Forms.Label;
    edit_steuer: System.Windows.Forms.TextBox;
    lbl_ergebnis: System.Windows.Forms.Label;
    btn_rechne: System.Windows.Forms.Button;
    btn_ende: System.Windows.Forms.Button;
    /// <summary>
    /// Erforderliche Methode zur Unterstützung des Designers -
    /// ändern Sie die Methode nicht mit dem Quelltext-Editor
    /// </summary>
    procedure InitializeComponent;
    procedure btn_ende_Click(sender: System.Object; e: System.EventArgs);
    procedure btn_rechne_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Ressourcen nach der Verwendung bereinigen
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private-Deklarationen }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
Var
  brutto:Integer;


implementation

{$AUTOBOX ON}

{$REGION 'Windows Form-Designer erzeugter Code'}
/// <summary>
/// Erforderliche Methode zur Unterstützung des Designers --
/// ändern Sie die Methode nicht mit dem Quelltext-Editor
/// </summary>
procedure TWinForm.InitializeComponent;
begin
  Self.lbl_peis := System.Windows.Forms.Label.Create;
  Self.edit_bruttopreis := System.Windows.Forms.TextBox.Create;
  Self.lbl_steuer := System.Windows.Forms.Label.Create;
  Self.edit_steuer := System.Windows.Forms.TextBox.Create;
  Self.lbl_ergebnis := System.Windows.Forms.Label.Create;
  Self.btn_rechne := System.Windows.Forms.Button.Create;
  Self.btn_ende := System.Windows.Forms.Button.Create;
  Self.SuspendLayout;
  // 
  // lbl_peis
  // 
  Self.lbl_peis.Location := System.Drawing.Point.Create(40, 48);
  Self.lbl_peis.Name := 'lbl_peis';
  Self.lbl_peis.TabIndex := 0;
  Self.lbl_peis.Text := 'Bruttopreis in Euro';
  // 
  // edit_bruttopreis
  // 
  Self.edit_bruttopreis.Location := System.Drawing.Point.Create(40, 72);
  Self.edit_bruttopreis.Name := 'edit_bruttopreis';
  Self.edit_bruttopreis.Size := System.Drawing.Size.Create(120, 20);
  Self.edit_bruttopreis.TabIndex := 1;
  Self.edit_bruttopreis.Text := '';
  // 
  // lbl_steuer
  // 
  Self.lbl_steuer.Location := System.Drawing.Point.Create(288, 48);
  Self.lbl_steuer.Name := 'lbl_steuer';
  Self.lbl_steuer.Size := System.Drawing.Size.Create(120, 24);
  Self.lbl_steuer.TabIndex := 2;
  Self.lbl_steuer.Text := 'Mehrwertsteuer in %';
  // 
  // edit_steuer
  // 
  Self.edit_steuer.Location := System.Drawing.Point.Create(296, 72);
  Self.edit_steuer.Name := 'edit_steuer';
  Self.edit_steuer.TabIndex := 3;
  Self.edit_steuer.Text := '';
  // 
  // lbl_ergebnis
  // 
  Self.lbl_ergebnis.Location := System.Drawing.Point.Create(112, 128);
  Self.lbl_ergebnis.Name := 'lbl_ergebnis';
  Self.lbl_ergebnis.Size := System.Drawing.Size.Create(272, 56);
  Self.lbl_ergebnis.TabIndex := 4;
  // 
  // btn_rechne
  // 
  Self.btn_rechne.Location := System.Drawing.Point.Create(48, 216);
  Self.btn_rechne.Name := 'btn_rechne';
  Self.btn_rechne.Size := System.Drawing.Size.Create(168, 32);
  Self.btn_rechne.TabIndex := 5;
  Self.btn_rechne.Text := 'Berechnen';
  Include(Self.btn_rechne.Click, Self.btn_rechne_Click);
  // 
  // btn_ende
  // 
  Self.btn_ende.Location := System.Drawing.Point.Create(280, 216);
  Self.btn_ende.Name := 'btn_ende';
  Self.btn_ende.Size := System.Drawing.Size.Create(152, 32);
  Self.btn_ende.TabIndex := 6;
  Self.btn_ende.Text := 'Abbruch';
  Include(Self.btn_ende.Click, Self.btn_ende_Click);
  // 
  // TWinForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(552, 270);
  Self.Controls.Add(Self.btn_ende);
  Self.Controls.Add(Self.btn_rechne);
  Self.Controls.Add(Self.lbl_ergebnis);
  Self.Controls.Add(Self.edit_steuer);
  Self.Controls.Add(Self.lbl_steuer);
  Self.Controls.Add(Self.edit_bruttopreis);
  Self.Controls.Add(Self.lbl_peis);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Erforderlich für die Unterstützung des Windows Forms-Designers
  //
  InitializeComponent;
  //
  // TODO: Fügen Sie nach dem Aufruf von InitializeComponent Konstruktorcode hinzu.
  //
end;

procedure TWinForm.btn_rechne_Click(sender: System.Object; e: System.EventArgs);
[b]begin
   brutto:=StrToInt(edit_bruttopreis.Text);
end;[/b]

procedure TWinForm.btn_ende_Click(sender: System.Object; e: System.EventArgs);
begin
  Close;
end;

end.

wenn ich das versuche, dann sagt er
[Fehler] uhaupt.pas(166): Undefinierter Bezeichner: 'StrToInt'
[Fataler Fehler] kosten.dpr(14): Verwendete Unit 'uhaupt.pas' kann nicht compiliert werden

aber genau so habe ich es in der Schule gelernt, was mache ich Falsch? Benutze Delphi 8

[BTeam]

Für StrToint() muste du die SysUtils mit einbinden.

[Preexo]

jau vielen dank...
omg is das bescheuert, wiso habsch denn Delphi 8, wenn ich am ende doch alles selber einbinden muss?^^

[Luckie]

Warum benutzt du nicht die Methode tostr oder wie die heißt?

[faux]

Jede (?) Variable hat ua. die Methode ToString()

[Robert_G]

Du weißt schon, dass du da ein Delphi für das .Net Framework hast?
Wo hast du das denn her?

StrToInt ist eine Funktion vom alten Delphi, die gibt es nur noch auf Umwegen in Delphi.Net.

Der Weg in .Net wäre:

IntegerVariable := Integer.Parse(EinestringVarable);