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

[fize]

ATI1


35228701******

OK

ATI2


V 04.20
18-06-07
RM-165
(c) Nokia

OK

вот реально

[raxp]

тут вижу 2 варианта:

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

[fize]

raxp может всетаки преобразовывать ответ на 2 команду в одну строку? и парсить проще будет. и более удобно читаемо

[raxp]

fize, это уже вам решать как будет удобнее... вот вам еще вариант независящий от кол-ва строк в результате:

var t: tstringlist;
    s: string;
    i: integer;
begin
 t:= tstringlist.create; // 3- ñïîñîá
 t.DelimitedText:= memo1.Lines.Text;

 s:= '';
 for i:= 1 to t.Count-2 do s:= s + t[i] + ' ';
 t.Free;

 memo2.Lines.Text:= s

[fize]

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
 t:tstringlist;
 s,s1:string;
 a:array[1..255] of Byte;
 i,i1:integer;
begin
 BComPort1.Read(a, count);
for i:=1 to Count do s:=s+Chr(a[i]);
 t:= tstringlist.create;
 t.DelimitedText:= s;
 s1:= '';
 for i1:= 1 to t.Count-1 do s1:= s1 + t[i1] + ' ';
 t.Free;
 memo1.lines.add (s1);
end;

выводит не полные данные. например imei вообще не выводит. где ошибся?

[raxp]

...ну а подумать?

[fize]

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

...ну а подумать?

честное слово сидел думал. но так и не придумал потому пришлось помощи просить. меня всегда смущают строки вида +1 -2 и т.п.
вот как я представляю работу этого кода-
BComPort1.Read(a, count); читаем из компонента
for i:=1 to Count do s:=s+Chr(a[i]); преобразуем (в s читаемая информация)
t:= tstringlist.create; очищаем стринглист
t.DelimitedText:= s; это х.з
s1:= ''; это примерно догадываюсь
for i1:= 1 to t.Count-1 do s1:= s1 + t[i1] + ' '; это сам парсинг
t.Free;
memo1.lines.add (s1); выводим в мемо

[raxp]

ну, а как насчет самого первого парсера?

[fize]

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

ну, а как насчет самого первого парсера?

for i:=1 to Count do s:=s+Chr(a[i]);
for i1:= 1 to t.Count-1 do s1:= s1 + t[i1] + ' ';
вот я и думаю может из-за того что Count ?

[fize]

подскажите