Incompatible types: got "untyped" expected "ShortString"

[j0x]

i got this error

Code: [Select]

Error: Incompatible types: got "untyped" expected "ShortString"
here is the code im trying to run

Code: [Select]

procedure TfrmTags.btnUrlClick(Sender: TObject);
var
   i:integer;
   onPos:integer;
   a:string;
   b:string;
begin
  a := 'http://';
  for i := 0 to mmoNoUrl.Lines.Count - 1 do
  begin
      if AnsiContainsStr(mmoNoUrl.Lines.Strings[i],a) then
         onPos := AnsiPos(a,mmoNoUrl.Lines.Strings[i]);
         b := mmoNoUrl.Lines.Strings[i];
         mmoPutUrl.Lines.Add('[url]' + setlength(b,onPos-1) + '[/url]');
      //showmessage(mmoNoUrl.Lines.Strings[i]);
  end;
end;                                 

thanks in advance for any help

[irfanbagus]

check this operation

Code: [Select]

'[url]' + setlength(b,onPos-1) + '[/url]'SetLength does not return string.

[j0x]

sorry for late reply but i just want you to know that iveseen your post already yesterday and i made a new code that now works here

Code: [Select]

procedure TfrmTags.btnUrlClick(Sender: TObject);
var
   i:integer;
   onPos:integer;
   a:string;
   b:string;
begin
  mmoPutUrl.Clear;
  a := 'http://';
  for i := 0 to mmoNoUrl.Lines.Count - 1 do
  begin
      b := AnsiLowerCase(mmoNoUrl.Lines.Strings[i]);
      if AnsiContainsStr(b,a) then
      begin
         onPos := AnsiPos(a,b);
         insert('[url]',b,onPos);
         mmoPutUrl.Lines.Add(b + '[/url]');
      end;
  end;
end;             

so thanks again