Re: Error: Operator is not overloaded - (SOLVED)

[wjackson153]

My goal is to find out if sWlan is alphabet and if so add it to the sData string

but i keep getting compile error
unit1.pas(60,13) Error: Operator is not overloaded

Code: [Select]

Repeat
   begin
    Inc(x);
   sWLAN := COPY(memo1.Text,x,1);

   if sWLAN in ['a'..'z']  then
   begin
   sData :=  sData + sWLAN;
   memo2.text := sData;
   end;
    end;
  Until x = Length(memo1.text); 



[Blaazen]

And sWLAN is string? IMO it must be char.

[wjackson153]

yes

sWLAN := Char;

and it's still giving unit1.pas(60,13) Error: Operator is not overloaded

[wjackson153]

Here is the complete offending code section

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var
   x: Integer;
   sWLAN: Char;
   sData: String;

begin


   Repeat
   begin
    Inc(x);
   sWLAN := COPY(memo1.Text,x,1);

   if sWLAN in ['a'..'z']  then
   begin
   sData :=  sData + sWLAN;
   memo2.text := sData;
   end;
    end;
  Until x = Length(memo1.text);



end;     

[User137]

This might be it (cannot assign string to char), and you have 2 options of which i recommend #1:

1)

Code: [Select]

sWLAN := memo1.Text[x];
2)

Code: [Select]

sWLAN := COPY(memo1.Text,x,1)[1];
Neither of these will work if (memo1.Text = ''), so you might need to test that beforehand, unless it'll never be empty.

edit: Second error, you are not initializing x, so:

Code: [Select]

begin
   x:=0;
   //sData:=''; // You might put this for consistency, not sure if required.
   Repeat
      ...

[wjackson153]

Thanks User137 your second method worked a treat , just what I needed

Working code below;

var
sWLAN: Char;
 x: Integer;
 sData: String;

procedure TForm1.Button1Click(Sender: TObject);

begin
     
   Repeat
   begin
    Inc(x);
   sWLAN := COPY(memo1.Text,x,1)[1];

   if sWLAN in ['a'..'z','A'..'Z','0'..'9']  then
     begin
   sData :=  sData + sWLAN;
   memo2.text := sData;
     end;
   end;
  Until x = Length(memo1.text);

end;