Identificar parte de un dato dentro de un campo

[[egostar]]

Empezado por dec

Aquí Zarko Gajic implementa una función "ReverseString()", e informa de que existe desde Delphi 6.

Eso mismo pensé

Empezado por keyboy

En realidad lo de ReverseString está muy jalado pues al final termina haciendo el recorrido inverso. Mucho mejor la de dec que creo se puede simplificar un poco:

Y bueno, como lo dije, ya he probado la función ReverseString() en mi TurboDelphi y puede ser que no sea tan "jalado" en ciertas circunstancias.

De cualquier forma esto me hace auto-enviarme a RTFM

Salud OS

[[Caral]]

Hola
Sois unos maestros, pero casualmente aveces no os dais cuenta de quien pregunta (el Novato).
Esto de las funciones me mata.
Alguien me lo traduce.
Recordad, tengo un combobox, de ahi parto, la información entra en el.
Como uso la función para llamar al dato que contiene el combobox.
Ya se, nunca aprenderé, pero de que lo intento, lo intento.
Saludos

[[egostar]]

Empezado por Caral

Hola
Sois unos maestros, pero casualmente aveces no os dais cuenta de quien pregunta (el Novato).
Esto de las funciones me mata.
Alguien me lo traduce.
Recordad, tengo un combobox, de ahi parto, la información entra en el.
Como uso la función para llamar al dato que contiene el combobox.
Ya se, nunca aprenderé, pero de que lo intento, lo intento.
Saludos

Hola amigo "NOVATO" , lo que pasa es que no entiendo que es lo que quieres hacer, la parte de obtener el color ya está resuelta, ahora hay que resolver lo que tu mente quiere hacer

Será que nos expliques un poco mas a detalle que es lo que intentas?

Salud OS

[[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

[[Delphius]]

Amigo! Me extraña!

Creo el Alz te ha visitado
Bueno creo que a lo que te refieres es a esto:

Código Delphi [-]
VariableOPriedad := NombreDeLaFuncion(VariablesOPropiedadesOConstantes);

Por ejemplo:

Código Delphi [-]
UnColor := DameloYa(ComboBox1.Text);

Saludos,

[[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

[[Caral]]

Hola
Veis, no dolió, ahora si lo capte, era solo de tomarme la pastilla del Altz y ya.
Algún día entenderé esto de las funciones.
Gracias, ya esta resulto, la próxima vez pregunto mejor.
Para que veáis como quedo, (Use la función de Dec.):

Código Delphi [-]
procedure TFOrdenProdAcrilico.CBLaminaChange(Sender: TObject);
var
color: string;
begin
 Color:= GetLaminaType(CBLamina.Text);
 showmessage(color);
   QTemp.Close;
   QTemp.SQL.Text := 'SELECT Materiales.Disponible FROM Materiales WHERE Materiales.Descripcion = isp';
   QTemp.Parameters[0].Value:= CBLamina.Text;
   QTemp.Active := True;
   Dispon.Text:= QTemp.Fields[0].Text;
end;

Saludos

[[Caral]]

Hola
Bueno, aqui sigo molestando, otro asunto:
Ya consegui que me mostrara el color con la funcion, esto esta bien.
Ahora lo que necesito es que una vez que consiga el color del combo, me carge en otro combo los datos de otros productos que tienen tambien esa condicion.
Para que os deis cuenta.
1- paso:
Cargo de combobox ( LAMINA 187 X 305 BONE )
Genero la funcion y me da el color.
Esto va bien.

2- paso:
Una vez cargado el dato del color quiero que se me genere una consulta
Y que me carge en otro combobox el dato que tenga tambien la condicion de Color.
El dato es este:
IBIZA TERMOFORMADO BONE

Lo que tengo:

Código Delphi [-]
procedure TFOrdenProdAcrilico.CBLaminaChange(Sender: TObject);
var
ColorL: string;
begin
   ColorL:= GetLaminaType(CBLamina.Text);
   EColor.Text:= ColorL;
   QTemp.Close;
   QTemp.SQL.Text := 'SELECT Materiales.Disponible FROM Materiales WHERE Materiales.Descripcion = isp';
   QTemp.Parameters[0].Value:= CBLamina.Text;
   QTemp.Active := True;
   Dispon.Text:= QTemp.Fields[0].Text;

// aqui es donde lo necesito

   QTemp.SQL.Text := 'SELECT Materiales.Descripcion FROM Materiales WHERE Materiales.Notas ="TERM" ORDER BY Materiales.Descripcion';
   QTemp.Active := True;
   While not QTemp.Eof do
   begin
      CBPieza.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;
   QTemp.Active := False;
end;

Ojala me entendáis.
Saludos