ok ^^.
btw:
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
Type TZahlen = '0'..'9';
Zahl = Set Of TZahlen;
var
sl1: TStringList;
s: string;
laufVar: integer;
Zahlen: Zahl;
begin
if (Edit1.Text <> '') AND (length(Edit1.Text) > 2) then
begin
if (Edit2.Text <> '') AND (length(Edit2.Text) > 2) AND not (edit2.Text[1] in Zahlen) then
begin
if length(Edit3.Text) > 7 then
begin
Button1.Enabled := false;
Button2.Enabled := false;
for laufVar := 1 to 4 do
TEdit(FindComponent('Edit' + InttoStr(LaufVar))).Enabled := false;
StatusBar1.Panels[0].Text := 'Trying to register nick...';
sl1 := TStringList.Create;
sl1.Add('name=' + Edit1.Text);
sl1.Add('nick=' + Edit2.Text);
sl1.Add('pass=' + Edit3.Text);
sl1.Add('cpass=' + Edit3.Text);
sl1.Add('email=' + Edit4.Text);
sl1.Add('cemail=' + Edit4.Text);
s := idhttp1.Post('http://www.cncreloaded.net/index.php?action=signup', sl1);
sl1.Free;
if Pos('The nickname you have chosen is already in use. Please select another.', s) > 0 then
begin
ShowMessage('The nickname you have chosen is already in use. Please select another.');
Edit2.Font.Color := clRed;
end;
Button1.Enabled := true;
Button2.Enabled := true;
for laufVar := 1 to 4 do
TEdit(FindComponent('Edit' + InttoStr(LaufVar))).Enabled := true;
StatusBar1.Panels[0].Text := '';
end
else
begin
ShowMessage('Your password must be exactly 8 characters in length.');
Edit3.Font.Color := clRed;
end;
end
else
ShowMessage('You must specify a nickname, and it must be greater than or equal to 3 characters long.');
end
else
ShowMessage('You must specify a name, and it must be greater than or equal to 3 characters long.');
end;
das funktioniert einwandfrei
find ich aber doof das ich ein neuen typ definieren musste, wenn ich "Zahl = Set Of Byte" nehme funktioniert es nichtmehr(lässt sich aber kompilieren), dann trifft die if anweisung nichtmehr zu...wieso das? byte ist doch auch ne zahl 0..255 oder nicht?