[[egostar]]

Empezado por Caral

Hola
Que poca paciencia me tienes, te esta volviendo viejo amigo.
Vamos otra vez.
Tengo un campo. (text)
Recojo el dato en un combobox.
Ahora con la función que hicisteis quiero saber la ultima parte de ese dato.
No lo capto, seguro es facil y vosotros lo veis, pero yo no.
Anda, que no te cuesta nada explicárselo al Novato.
Saludos

Código Delphi [-]
function DameloYa(Dato: String): String;
var
  I: Integer;

begin
  for I := Length(Dato) downto 1 do
    if Dato[i] = ' ' then
      break;
  Result := Copy(Dato, I + 1, Length(Dato));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text := DameloYa(ComboBox1.Text);
end;

Salud OS