<div>
Why isn't this working??? Edit box it now being updated!<br />

<pre><code id="code-5871">function update_url(url, s:string):string;
var i:integer;
begin
  i:=pos('_', url);
  assert(i&gt;0);
  delete(url, i+1, length(url));
  result:=url+s;
end; 
procedure TForm1.Button1Click(Sender: TObject);
var s, new: string;
begin
s:=Edit1.Text;
update_url(s,'1b.jpg');
Edit1.Text:=(s); 
end;
</code></pre>
</div>


Why isn't this working??? Edit box it now being updated!


function update_url(url, s:string):string;
var i:integer;
begin
  i:=pos('_', url);
  assert(i>0);
  delete(url, i+1, length(url));
  result:=url+s;
end; 
procedure TForm1.Button1Click(Sender: TObject);
var s, new: string;
begin
s:=Edit1.Text;
update_url(s,'1b.jpg');
Edit1.Text:=(s); 
end;


<div>
update_url is a funciton not a procedure. which means it returns the modified string as a result. basically this allows you to use it nicely in one line like below ;)<br />

<pre><code id="code-5872">procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=update_url(edit2.text,'1b.jpg');
end;
</code></pre>
</div>


update_url is a funciton not a procedure. which means it returns the modified string as a result. basically this allows you to use it nicely in one line like below ;)


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=update_url(edit2.text,'1b.jpg');
end;


<div>
Perfect!!! Thanks! :o)<br />

</div>


<div>
<div class="content wysiwyg-content">
hi all,<br />
<br />
I have a URL that I need to change.<br />
<br />
It looks like this:<br />
<br />
<a href="http://www.somewebsite/com/35445485448154_2b.jpg" rel="ugc">http://www.somewebsite/com/35445485448154_2b.jpg</a><br />
<br />
I need to remove the &quot;2b.jpg&quot; at the end and replace it with &quot;1b.jpg&quot;<br />
<br />
It's urgent...could you please help?<br />
<br />
Thanks<br />
<br />
ST3VO<br />

</div>
</div>


hi all,

I have a URL that I need to change.

It looks like this:

http://www.somewebsite/com/35445485448154_2b.jpg

I need to remove the "2b.jpg" at the end and replace it with "1b.jpg"

It's urgent...could you please help?

Thanks

ST3VO


Remove last characters of a string

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.