Поиск в Memo

@Tiera · Регистрация: 27.06.2017

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

Привет всем.
В моей программе есть поле Memo, куда выводится результат команды ping. Мне нужно из Memo достать время ответа. Пробовал сделать через Pos поиск.

C++

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int PosTime,PosMC;
String ping,memostring;
for(PingLines;PingLines<Memo1->Lines->Count;PingLines++){ memostring=Memo1->Lines->Strings[PingLines];
PosTime=memostring.Pos("время=");
PosMC=memostring.Pos("мс");
ping=memostring.SubString(PosTime+7,PosMC-PosTime-7);
}
Label2->Caption=ping;

Но в итоге в ответ ничего не выводится. Пробовал отдельно вывести PosTime и PosMC, там постоянно 0.

@Lelik-pahan · 08.03.2019, 14:01

1. Нужно поправить смещение в SubString:

C++

1 2	SubString(PosTime + 6, PosMC - PosTime - 6); //или SubString(PosTime + 6, PosMC - (PosTime + 6))

Если в строке memostring действительно будет искомое значение, оно будет найдено.

2. Ответ от команды ping состоит из двух строк, и время можно найти только в каждой второй строке. Стоит добавить проверку

C++

1
2
3

PosTime = memostring.Pos("время=");
if (!PosTime)
    continue;

@Tiera · 08.03.2019, 18:53 **[ТС]**

Оказалось проблема у меня в другом(текст в Memo - юникод, который виден благодаря шрифту и поиск по этой причине не работал), но в целом поиск работать таким способом должен.
Я сейчас решил реализовать это через элемент IdIcmpClient, а именно вывел пинг так:

C++

1
2
3

IdIcmpClient1->Host=Edit2->Text;
IdIcmpClient1->Ping();
Label2->Caption=IntToStr(IdIcmpClient1->ReplyStatus.MsRoundTripTime);

Но спасибо за ответ.

	08.03.2019, 18:53