работа со строками delphi

[fize]

додумался.-

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
t: tstringlist;
s,s1:string;
i:integer;
begin
BComPort1.ReadStr(s,count);
t:= tstringlist.create;
t.DelimitedText:=s;
for i:=0 to t.Count-2 do s1:=s1+t[i]+' ';
memo1.Lines.add(s1)
end;

штоб его

[fize]

подскажите еще как посылать несколько команд одной кнопкой. например нужно послать команду AT1 следом AT2 и AT3?

[raxp]

рекомендую изменить немножко подход к вопросу...
прежде всего, в модем нельзя посылать несколько команд подряд пока он не отработает текущую команду, т.е. пока не придет ответ с COM порта и вы не увидите, что отработана верно... отсюда - нужно завести буфер (очередь) команд и посылать последовательно заданный набор с проверкой (ожиданием) ответа, пришел ответ - посылаем следующую из буфера, т.е. ваша задача сводится к двум вещам:
1- создание анализатора команд-ответа
2- поток или таймер посылки буфера команд с ожиданием разрешения от анализатора.