Nutzer zwingen etwas zu wiederholen(mit If)?

[Haxx0r79]

Vielen Sir Rufo!!!

Habs auch verstanden durch die Beitrage der anderen!

Dadurch, dass x und y keine Zahlen über 0 sind werden sie nicht aktzeptiert und der Nutzer muss die Eingabe nochmal machen.Oder?

Vielen dank an die anderen


Nur eine Frage: Was bedeutet die 0 in der Klammer also hier

if
( StrToIntDef( GrX.Text, 0 ) > 0 ) and
( StrToIntDef( GrY.Text, 0 ) > 0 )



Edit: Mehr Quelltext als den hab ich net, nur noch

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JPeg, ExtCtrls, Menus, ExtDlgs;

type
  TForm1 = class(TForm)
    VerkleinernBtn: TButton;
    GroupBox1: TGroupBox;
    GrX: TLabeledEdit;
    GrY: TLabeledEdit;
    Label1: TLabel;
    OpenPictureDialog1: TOpenPictureDialog;
    SaveDialog1: TSaveDialog;
    procedure VerkleinernBtnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Aber das ist ja hier unwichtig, jpeg hab ich deklariert unter uses