Kod: Tümünü seç
s:= socket.receivetext; // s= Gelen bilgiyi al
repeat
inc(id);
until copy(s,id,1) ='ô'; // gelen bilgide Bu karakteri bulana kadar id değişkenini 1 arttır ==>"ô"
case strtoint(copy(s,1,id-1)) of // ilk karakterden <==> "ô" karakterine kadar olan kısmı kopyala, integer'a çevir ve sonuca göre aşağıdaki işlemleri yap.
5:...
1:...
......