Quelltext der Seite Lazarus/TEdit

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:

<source  line lang="pascal">
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.
</source>

{{Lazarus-Buch}}


[[Kategorie:Lazarus]]