Colocando o conteúdo de um campo em um Labell

Visitas

Colocando o conteúdo de um campo em um Label em PocketStudio (Palm)

procedure Button1_OnCtlSelect(var Handled: Boolean; ControlID: UInt16; Control: ControlPtr; On: Boolean);
var
   Texto: PChar;
   TextoSize: UInt16;
begin
   //pegando o tamanho do texto e acrescentando mais 1 que será usado para o caracter de terminação de string
   TextoSize := PSField.TextLength(Field1) + 1;

   // Alocando o tamanho necessário para caber o texto
   Texto := PSString.StrAlloc(TextoSize);

   // Copiando o conteúdo do campo para a variável
   PSField.Text(Field1,Texto,TextoSize);

   // Colocando o conteúdo da variável no Caption do Label
   PSLabel.SetCaption(Label1,Texto);

   // Liberando o espaço alocado
   PSString.Dispose (Texto);

   // A atribuição Handled := True; serve para informar ao PalmOS que o
evento foi tratado totalmente pela sua aplicação.
   Handled:=True;

end;