Текст телеграммы (Delphi VCL)

[CoolEnemy]

Ребят, есть задача: Введите текст телеграммы и стоимость одного слова. Определить стоимость телеграммы. При вводе текста запятые обозначаются словом ЗПТ, точки - словом Т.
Вот код намудровал, но что-то не хочет ничего, помогите в чем проблема?

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
c:integer;
kvo:integer;
begin
kvo:=0;
a:=a+' ';
  a:=Edit1.Text;
  c:=strtoint(Edit2.Text);
while Pos(' ',a)>0 do
  begin
    b:=Copy(a,1,Pos(' ',a)-1);
    Delete(a,1,Pos(' ',a));
    if (b<>'ЗПТ') and (b<>'T')
    then inc(kvo);
    Edit3.Text:=b;
  end;
Edit4.Text:=inttostr(kvo*c);
end;
 
end.

[Lamia]

StrComp это сравнение строк

[CoolEnemy]

Сообщение от Lamia

StrComp это сравнение строк

немного не понял?

[Lamia]

Сообщение от CoolEnemy

немного не понял?

b<>'ЗПТ' скорее всего из-за этого. Надо strComp(PAnsiChar(b),'ЗПТ') <> 0

[CoolEnemy]

Сообщение от Lamia

b<>'ЗПТ' скорее всего из-за этого. Надо strComp(PAnsiChar(b),'ЗПТ') <> 0

неа, не работает
так?

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
c:integer;
kvo:integer;
begin
kvo:=0;
a:=a+' ';
  a:=Edit1.Text;
  c:=strtoint(Edit2.Text);
while Pos(' ',a)>0 do
  begin
    b:=Copy(a,1,Pos(' ',a)-1);
    Delete(a,1,Pos(' ',a));
    if ( strComp(PAnsiChar(b),'ЗПТ') <> 0) and (b<>'T')
    then inc(kvo);
    Edit3.Text:=b;
  end;
Edit4.Text:=inttostr(kvo*c);
end;

[Lamia]

a:=a+' ';
  a:=Edit1.Text;

скорее всего Вы хотели добавить в конце строки пробел, чтобы опираться на него в поисках.

a:=Edit1.Text;
a:=a+' ';

не в курсе, как выглядит телеграмма, но, судя по Вашим строкам, ЗПТ и Т не входят в стоимость ее , а стоимость определяется количеством слов. Если это так, то осталось заменить эти 2 строки.

[WinCoder]

CoolEnemy

var
  TS: TStringList;
begin
  TS := TStringlist.Create;
  TS.Delimiter := ' ';
  TS.DelimitedText := 'раз два три';
  ShowMessage(TS[0]);
  ShowMessage(TS[1]);
  ShowMessage(IntToStr(TS.Count));

Смысл ясен? Теперь по логике. Ты пытаешься выкинуть из сообщения словесные определения знаков препинания, что в корне не верно, так как знаки препинания тоже стоят денег. Смысл задачи в применении функции ReplaceStr для подмены знаков препинания соответствующими словами. Знаки препинания не разделены между словом пробелом, а значит при замене символов на слова нужно поставить пробел

ReplaceStr('.', ' ТЧК')

После этого загоняем текст в StringList, и верно определяем количество слов, и соответственно цену телеграммы.

[CoolEnemy]

WinCoder, получается мой код вообще не правильный?

Сообщение от WinCoder

CoolEnemy

var
  TS: TStringList;
begin
  TS := TStringlist.Create;
  TS.Delimiter := ' ';
  TS.DelimitedText := 'раз два три';
  ShowMessage(TS[0]);
  ShowMessage(TS[1]);
  ShowMessage(IntToStr(TS.Count));

Смысл ясен? Теперь по логике. Ты пытаешься выкинуть из сообщения словесные определения знаков препинания, что в корне не верно, так как знаки препинания тоже стоят денег. Смысл задачи в применении функции ReplaceStr для подмены знаков препинания соответствующими словами. Знаки препинания не разделены между словом пробелом, а значит при замене символов на слова нужно поставить пробел

ReplaceStr('.', ' ТЧК')

После этого загоняем текст в StringList, и верно определяем количество слов, и соответственно цену телеграммы.

честно признаюсь, вообще не понял...

[WinCoder]

получается мой код вообще не правильный?

Если ты не понял смысла задачи, код может быть правильным? Включи мозг секунд на 10, и подумай.

честно признаюсь, вообще не понял

Значит не судьба. Объяснил как мог, по другому не умею, ибо не учитель.

[CoolEnemy]

Сообщение от WinCoder

Если ты не понял смысла задачи, код может быть правильным? Включи мозг секунд на 10, и подумай.
Значит не судьба. Объяснил как мог, по другому не умею, ибо не учитель.

а с кодом помочь не можешь?