Смена заголовка

[Terran]

Уважаемые программисты! Подскажите пожалуста, как сделать, что бы когда в порт приходят данные, содержащие символ '~' ,то заголовок
labela1 становился равен этим данным, но что бы установленный заголовок не содержал этого пришелшего вместе с данными символа '~', а есле пришедшие данные седержат символ '=', то уже менялся заголовок labela2 на пришедшие данные, но без символа '='?

Procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
Var
S: String;
Begin
S:= Socket.ReceiveText;
If S='~10' Then
Begin
.......
end;

Заранее благодарен.

[mihali4]

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

Уважаемые программисты! Подскажите пожалуста, как сделать, что бы когда в порт приходят данные, содержащие символ '~' ,то заголовок
labela1 становился равен этим данным, но что бы установленный заголовок не содержал этого пришелшего вместе с данными символа '~', а есле пришедшие данные седержат символ '=', то уже менялся заголовок labela2 на пришедшие данные, но без символа '='?

Ваша процедура с изменениями:

Procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var S: String;
     ok: boolean;
Begin
ok:=False;
S:= Socket.ReceiveText;
if s[1]='~' then
ok:=True;
Delete(s,1,1);
if ok then
Label1.Caption:=s else
Label2.Caption:=s;
end;

[Квэнди]

if pos('~',s)>0 then
label1.caption:=strinreplace(s,'~','',[rfreplaceall]);
if pos('=',s)>0 then
label2.caption:=stringreplace(s,'=','',[rfreplaceall]);

[Terran]

Большое спасибо!!!