Inkompatible Typen: 'Char' und 'Str

[fwsp]

hallo

Delphi-Quellcode:

procedure Tcalcer.IntEdit(Sender: TObject);
var eingabe    : string;
    s2, f2, z2 : integer;
begin
 for s2 := 1 to 4 do
  begin
   for f2 := 1 to 11 do
    begin
     for z2 := 1 to 12 do
      begin
       eingabe := DEdit[s2,f2,z2].Text;
       if not (eingabe in ['0'..'15', ''])
        then DEdit[s2,f2,z2].Text := '0';
      end;
    end;
  end;
end;

so sieht der code aus. er sollen überprüfen ob in einem edit was anderes als ne zahl von 0 bis 15 oder gar nichts steht. allerdings meckert der compiler und sagt:

[Fehler] calc.pas(1797): Inkompatible Typen: 'Char' und 'String'

wo liegt der fehler?

bitte helft mir.

[Pr0g]

"eingabe" ist ein String, also mehrere Zeichen, du willst aber nur ein Zeichen prüfen "eingabe in [...]". Ersetz das "eingabe", also durch "eingabe[1]":

Delphi-Quellcode:

...
eingabe := DEdit[s2,f2,z2].Text;
if not (eingabe[1] in ['0'..'15', ''])
...

MfG Pr0g

[jfheins]

:lol: eingabe[1] in ['0'..'15'] in einem Zeichen kann nur 0 bis 9 drinstehen, keine 15 !

Warum nicht

Delphi-Quellcode:

if (Edit.Text <> '') then
begin
  if StrToIntDef (Edit.text, 16) in [0..15] then showmessage ('0 bis 15');
end
else showmessage ('da steht gat nix drin !!!');

[Pr0g]

Zitat:

Zitat von jfheins

:lol: eingabe[1] in ['0'..'15'] in einem Zeichen kann nur 0 bis 9 drinstehen, keine 15 !

:oops: hatte das übersehen.

[fwsp]

danke.