Größer als bei Edit1.Text ?!?

[Gast]

Hey,

wahrscheinlich eine dumme Frage aber wie kriege ich das hin ? Wenn der Text vom Edit Feld größer ist dann ...

ich habs probiert mit

Code:

if (Edit1.Text > 100) then

aber das geht nicht :/

*edit* Da es eine Relativ einfache Frage für euch ist denke ich, nicht meckern aber ich habe echt danach gesucht !!

[Nikolas]

Was sagt den der Compiler?

Mein Compiler sagt:

[Fehler] Unit1.pas(29): Inkompatible Typen: 'String' und 'Integer'

Also solltest du mal schauen, was davon ein string ist und was ein integer und dann umwandeln...

[Gast]

Aha und wie sehe ich das ?

Code:

var
  Form1: TForm1;
  Key: Char;
  X: integer;

function RandName(Length : Integer):String;
var
  i : Byte;
begin
  randomize();
  result := '';
  SetLength(Result,Length);
  for i := 0 to Length do
  begin
    Result[i] := Char(Random(25)+65);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines[0] := RandName(X);
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0' .. '9'])then
  key:=#0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  X := 12
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if (Edit1.Text > 100) then
    StatusBar1.Panels[0].Text := 'Test';
  X := StrToInt(Edit1.Text);
end;

Was soll ich nun machen oder ändern ?



*edit* Wenn ich das so mache:

Code:

if (Edit1.Text > '100') then

dann geht irgendwie nur der Anfangsbuchstabe .. also bei 0 oder 1 passiert nix aber bei 2 ja .. dabei soll erst was bei 200 passieren.



Habe die 100 jetzt als Variable genommen und nun gehts !

[ibp]

du sollst den string edit1.text in ein integer umwandeln und zwar so, dass sie länge herauskommt! schau mal nach length!

[arbu man]

was meinst du zahlen größe oder buchstabenlänge

Delphi-Quellcode:

if strtoint(edit1.text)>100 then showmessage('zahl groeßer 100');

if length(edit1.text)>100 then then showmessage('läger als 100 zeichen');

[Gast]

habe schon weiter zu meinem Post geschrieben, dass ich die Zahl jetzt als Variabel gemacht habe und es wunderbar klappt, trotzdem Thx ! :)