Solved

Error message:" Missing operator or semicolon"

Posted on 2008-10-07
4
1,004 Views
Last Modified: 2012-05-05
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
Comment
Question by:QurbanDurrani
  • 2
  • 2
4 Comments
 
LVL 13

Accepted Solution

by:
rfwoolf earned 500 total points
ID: 22660682
replace "tempstr(i)"
with "tempstr[i]"
0
 

Author Comment

by:QurbanDurrani
ID: 22660975
rfwoolf.
Thanks for your prompt response.
0
 
LVL 13

Expert Comment

by:rfwoolf
ID: 22661001
No problem. Your code looks impressive for a "beginner" if your profile is correct
0
 

Author Comment

by:QurbanDurrani
ID: 22663418
Thanks rfwoolf,
I have been working with Delphi for a little while, but still feel like a beginner.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now