C#

private void tsbtnSave_Click(object sender, EventArgs e)
{
  if (this.ActiveMdiChild is Basic.AnalyzersCylinders) ((Basic.AnalyzersCylinders)this.ActiveMdiChild).Save();
}

public void Save()
{
  foreach (DataGridViewRow dgRow in dgvAnalyzers.Rows)
  {
    if (dgRow.Cells["CheckedItem"].Value != null)
    {
      if ((bool)dgRow.Cells["CheckedItem"].Value)
      {
        // save data to database;
      }
      else
      {
        // delete data from database;
      }
    }
  }
}

XPathDocument xmldoc = new XPathDocument(p);
XPathNavigator nav = xmldoc.CreateNavigator();
int j = 0;
foreach (XPathNavigator product in nav.Select("liste/mobile"))
{
  j++;
}

// BCB VCL TCP Message Server
// Chin-Shiuh Shieh
// 2002-04-04
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

//--------------------Abrir el Servidor---------------------------------------//

void __fastcall TForm1::BAbrirClick(TObject *Sender)
{
//Configurar el número de puerto
        ServerSocket1->Port=StrToInt(Npuerto->Text);

//Abrir el servidor
        ServerSocket1->Open();

//Actualizar estado de los botones
        BAbrir->Enabled=false;
        BCerrar->Enabled=true;

//Informar de que se ha abierto el servidor
        BEstado->SimpleText="Servidor Conectado!";

//Indicar el número de conexionoes activas
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Activar el Boton de enviar mensaje
        BEnviar->Enabled = true;
}

//----------------------------------------------------------------------------//

//---------------------Cerrar el Servidor-------------------------------------//

void __fastcall TForm1::BCerrarClick(TObject *Sender)
{
//Cerrar el Servicio
        ServerSocket1->Close();

//Actualizar estado de los botones
        BAbrir->Enabled=true;
        BCerrar->Enabled=false;

//Informar del cierre del servidor
        BEstado->SimpleText="Servidor Cerrado!";

//Actualizar el campo de nº de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Desactivar el Boton de enviar mensaje
        BEnviar->Enabled = false;
}

//----------------------------------------------------------------------------//

//---------------------Cuando se Conecte un Cliente---------------------------//

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Mostrar aviso en la barra de estado
        BEstado->SimpleText="Conectado desde  "+Socket->RemoteAddress;

//Actualizar el número de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);
}


//----------------------------------------------------------------------------//

//---------------------Al Desconectarse un Cliente----------------------------//

void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Actualizar el número de conectados
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections-1);

//Informar de la desconexión
        BEstado->SimpleText="Desconectado de "+Socket->RemoteAddress;
}
//----------------------------------------------------------------------------//

//---------------------Al recibir un Mensaje----------------------------------//

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
//Espacio para recibir el mensaje
char * buffer;
        int len;
        AnsiString Mensaje;
        int i;

// Recibir mensaje
int *tam;
tam = new int;
*tam = Socket->ReceiveLength();

len=Socket->ReceiveBuf(buffer,*tam);
buffer[len]=0;

//Estructura para mostrar el mensaje correctamente
TTime hora = TTime::CurrentTime();
AnsiString MensajeIn = Socket->RemoteAddress;
        MensajeIn += " A las " + TimeToStr(hora) + " Dice" "----->";

ChatBox->Lines->Add(MensajeIn +StrPas(buffer));
BEstado->SimpleText=IntToStr(len)+"Nuevo mensaje entrante!";

// Repetir el mensaje a los demás
Mensaje = StrPas(buffer);
strcpy(buffer,Mensaje.c_str());
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
    ServerSocket1->Socket->Connections[i]->SendBuf(buffer,strlen(buffer));


delete[] buffer;
}

//----------------------------------------------------------------------------//

//--------------------Enviar un Mensaje---------------------------------------//
void __fastcall TForm1::BEnviarClick(TObject *Sender)
{
//Espacio para meter el mensaje
 char buffer[256];
 int i;

 //Recoger el Mensaje del campo de entrada
AnsiString Mensaje = CampoMensaje->Text;
strcpy(buffer,Mensaje.c_str());

//Enviarlo a los conectados
for(i=0;i<ServerSocket1->Socket->ActiveConnections;i++)
    ServerSocket1->Socket->Connections[i]->SendBuf(buffer,strlen(buffer));

//Añadirlo al Chatbox
TTime hora = TTime::CurrentTime();
        ChatBox->Lines->Add("Servidor a las " +TimeToStr(hora)
        + " dice----->" + Mensaje);

}
//----------------------------------------------------------------------------//

//---------------------Borrar la Memo-----------------------------------------//
void __fastcall TForm1::LimpiarClick(TObject *Sender)
{
//Borrar
        ChatBox->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CampoMensajeKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == 13)
            TForm1::BEnviarClick(CampoMensaje);        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NpuertoKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == 13)
            TForm1::BAbrirClick(Npuerto);         
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TcpServer1Accept(TObject *Sender,
      TCustomIpClient *ClientSocket)
{
//Configurar el número de puerto
        TcpServer1->RemotePort = StrToInt(Npuerto->Text);

//Abrir el servidor
        TcpServer1->Open();

//Actualizar estado de los botones
        BAbrir->Enabled=false;
        BCerrar->Enabled=true;

//Informar de que se ha abierto el servidor
        BEstado->SimpleText="Servidor Conectado!";

//Indicar el número de conexionoes activas
        NOnline->Text=IntToStr(ServerSocket1->Socket->ActiveConnections);

//Activar el Boton de enviar mensaje
        BEnviar->Enabled = true;
        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TcpServer1CreateHandle(TObject *Sender)
{
//Actualizar el número de conectados
        NOnline->Text=IntToStr(TcpServer1->Active-1);

//Informar de la desconexión
        BEstado->SimpleText="Desconectado de "+TcpServer1->LocalHostName();
}
//---------------------------------------------------------------------------