Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1020
  • Last Modified:

Error message:" Missing operator or semicolon"

Hi experts.
I am trying to parse a string into various components and am not sure what I am doing wrong. I am attaching the code. The error is received on the line "protocol :=  protocol + tempstr(i);"
procedure TMainForm.ViewGroupClick(Sender: TObject);
var
  i: integer;
  tempstr, protocol, port, RA, disp, point : string;
begin
 
  SLCGroupForm := TSLCGroupForm.Create(Application);
  SLCGroupForm.ShowModal;
 
  tempstr := '';
  protocol := '';
  port := '';
  RA := '';
  disp := '';
  point := '';
 
      case DMForm.T_SLCUnitSLC_Unit_Number.AsInteger of
      0:
      begin
        SLCGroupForm.ClientWidth := 233;
      end;
      1:
      begin
        SLCGroupForm.ClientWidth := 233;
      end;
      2:
      begin
        tempstr := DMForm.T_PointAID.AsString;
        for i := 1 to Length(tempstr) do
        begin
          repeat
          protocol :=  protocol + tempstr(i);
          i++;
          until tempstr(i) = '-';
          repeat
          port := port + tempstr(i);
          i++;
          until tempstr(i) = '-';
          repeat
          RA := RA + tempstr(i);
          i++;
          until tempstr(i) = '-';
          repeat
          disp := disp + tempstr(i);
          i++;
          until tempstr(i) = '-';
          repeat
          point := point + tempstr(i);
          i++;
          until i > Length(tempstr) ;
        end;
 
      end;
    end;  
 
 
end;

Open in new window

0
QurbanDurrani
Asked:
QurbanDurrani
  • 2
  • 2
1 Solution
 
rfwoolfCommented:
replace "tempstr(i)"
with "tempstr[i]"
0
 
QurbanDurraniAuthor Commented:
rfwoolf.
Thanks for your prompt response.
0
 
rfwoolfCommented:
No problem. Your code looks impressive for a "beginner" if your profile is correct
0
 
QurbanDurraniAuthor Commented:
Thanks rfwoolf,
I have been working with Delphi for a little while, but still feel like a beginner.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now