Lazarus/TEdit

Aus ZUM-Unterrichten
Die druckbare Version wird nicht mehr unterstützt und kann Darstellungsfehler aufweisen. Bitte aktualisiere deine Browser-Lesezeichen und verwende stattdessen die Standard-Druckfunktion des Browsers.

Ein TEdit ist ein Objekt, in das der Benutzer etwas eingeben kann. Man könnte es als ein "Eingabefeld" betrachten. Eingebenes kann danach je nach Bedarf vom Programm ausgewertet werden.

Anwendungsbereich

Der Anwendungsbereich eines TEdit ist sehr groß. Es wird bei sehr vielen Anwendungen benötigt. Sowohl bei allgemeinen Programmen, als auch bei Spielen. Schon beim einloggen in ein Online-Spiel könnten TEdits verwendet worden sein. Man achte nur auf die Eingabefelder unter Benutzer und Passwort.

Anwendungsbeispiele

Als gutes Beispiel kann man ein simples Rechenprogramm verwenden, welches auf TEdits aufbaut. Man nehme 2 TEdits und einen Button der addieren soll und lässt dann die eingegebenen Werte mithilfe von Integer bzw. Float Variablen auswerten. Dann kann man mithilfe eines Panels zum Beispiel das Ergebnis ausgeben lassen.

Hier der Quelltext eines simplen Beispieles:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  werteins: Integer;
  wertzwei: Integer;
  ergebnis: Integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  werteins := StrToInt(Edit1.Text);
  wertzwei := StrToInt(Edit2.Text);
  ergebnis := werteins + wertzwei;
  panel1.caption := IntToStr(ergebnis);
end;

end.