Se me ocurre esta otra:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := PChar (@Edit1.Text [2]);
end;
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas.
|