Посчитать количество элементов в строке после ";"

@Yana1213 · Регистрация: 20.11.2013

Author24 — интернет-сервис помощи студентам

Delphi

procedure TForm2.Button1Click(Sender: TObject);
var
s: String;
begin
 s:=AnsiReplaceStr(Edit1.Text,' ','');    
 Edit2.Text:=IntToStr(Pos(';',s));             // количество элементов в строке до ";"

подскажите пожалуйста, как посчитать количество элементов в строке после ";"?

@Puporev · 05.05.2014, 15:47

Delphi

1	Edit3.Text:=IntToStr(Length(s)-Pos(';',s));

	05.05.2014, 15:47