ein bestimmtes Zeichen aus string entfernen???

[Gast_1]

Wie kann ich überprüfen, ob das vorletzte Zeichen in einem String ein ; ist und dieses falls vorhanden löschen?

[Frank Kneffel]

if length(string)>1 then<br>
if string[length(string)-1]=';' then<br>
delete(string,length(string)-1,1)

[Gast_1]

<font face="arial" color="black" size="3">
<p>var <br>
s, s1, s2 usw. : string;</p>
<p>memo1.text:=memo1.text + s + s1 + s2 + s3 + a1 + a2 + a3 + a4 + a5 + a6 +'}';</p>
<p>Wenn ich es so eingebe,<font color="#800000"><b> if <br>
(memo1.text[Length(memo1.text)-1]=';') then <br>
Delete(memo1.text,Length(memo1.text)-1,1);</b></font><br>
<br>
bekomme ich immer folgende Fehlermeldung<br>
<br>
<b><font color="#ff0000">[Error] Unit1.pas(203): Constant object cannot be <br>
passed as var parameter</font></b></p>
<p>Was mache ich falsch?</p>
</font&gt

[Hagen Reddmann]

Hi

Delete(var S: String, ...), benötigt also eine Variable vom Typ String. Nun Memo.Text ist ein Property, also KEINE Variable.

Gruß Hage