Metnin En Sonundaki karakteri silmek

[PTT]

İyi geceler,
Jvmemoda şöyle bir string oldugunu varsayalım
JvMemo1.Text:='elma,armut,karpuz,kiraz,';
Ensağdaki virgül fazladan olduğu kabul edilirse (kirazın sağındaki ) bu vürgülü nasıl kaldırabilirim ?

Ek bilgi olarak : Meyve isimleri stringde sabit değil. Yani bir stringde 5 meyve var, diğer stringde 8 meyve..
Ve her stringin sonunda fazladan bir virgül var

Fonksiyonlardaki tecrübesizliğimden ötürü sonucu bulamadım.

Metnin en sağındaki karakter olan virgülü buluyorum, ama tüm metinden bu son karakteri çıkartıp metnin kalanını bulamıyorum

Kod: Tümünü seç

ShowMessage(AnsiMidStr(JvMemo1.Text , Length(JvMemo1.Text) , 1));

Teşekkürler

[unicorn64]

Kod: Tümünü seç

procedure VirgulSil;
var
   s:string;
begin
   s:='elma,armut,karpuz,kiraz,';
   s:=copy(s,1,length(s)-1);
   showmessage(s);
end;

[PTT]

Teşekkür ederim.

[orhancc]

Kod: Tümünü seç

uses StrUtils;

 private
    function VirgulSil(Metin:string):string;

function TForm1.VirgulSil(Metin:string):string;
var
  position: Integer;
begin
  position := LastDelimiter(',', Metin);
  Metin := StuffString(Metin, position, 1, '');
  result := Metin;
end;

kullanımı

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
begin
   s := 'elma,armut,karpuz,kiraz,';
   ShowMessage(VirgulSil(s));
end;

[PTT]

Teşekkürler Orhan Bey,
Sizinkiside güzel bir yöntemmiş.. Şöyle birşeyler buldum baktıkça detayları daha iyi anlayabiliyorum.


http://www.delphibasics.co.uk/RTL.asp?N ... tDelimiter
http://www.delphibasics.co.uk/RTL.asp?Name=StuffString