PocketStudio 3 - Uso de Strings

No final de 2007 a WinSoft lançou oficialmente o PocketStudio 3, com as seguintes novidades:

• New string support;
• New SysUtils unit;
• New PalmOS Simulator debugging;
• New Lock controls menu;
• New color scheme;
• New examples: AppVersion, Cephes, BTCom;
• New filter for code templates (Ctrl+J);
• New installer;
• Windows Vista support;
• Updated PalmOS files;
• More code templates;
• Corrected minor IDE and compiler problems;
• Auto detecting and reloading files modified outside the IDE;

Entre os itens apresentados, o mais importante foi o suporte a String que contribuiu para redução de código extra, tornando a aplicação mais simples.

Uso de arrays:

procedure ExibirNome;
var
  Buffer: array[0..5] of char;
begin
  StrCopy(Buffer, ‘B’);
  StrCat(Buffer, ‘r’);
  StrCat(Buffer, ‘u’);
  StrCat(Buffer, ‘n’);
  StrCat(Buffer, ‘o’);
  ShowMessage(Buffer);
end;

Uso de string:

procedure ExibirNome;
var
  Buffer: String;
begin
  Buffer := ‘B’ + ‘r’ + ‘u’ + ‘n’ + ‘o’;
  ShowMessage(Buffer);
end;

Para quem está usando PocketStudio 2, a migração para a nova verão será bem simples, pelo menos nos projetos que trabalhei todos foram bem tranqüilos, basicamente só recompilar.