Identificar parte de un dato dentro de un campo

[dec]

Hola,

Empezado por egostar

Vaya amigo Dec, me ganaste y me parece que tu función GetLaminaType() esta optimizada ....

Huy... no sé qué te diga... bueno, sí: que la tuya me parece curiosa.

Y, respecto de la del compañero keyboy, chico, yo probé con el "Reverse" pero me hice un lío...

Por cierto, creo que la de keyboy se muestra favorita, ahora, eso sí, le falta algo:

Código Delphi [-]
uses
  StrUtils;

[[egostar]]

Empezado por dec

Huy... no sé qué te diga... bueno, sí: que la tuya me parece curiosa.

, de que hablas amigo Dec

Empezado por dec

Y, respecto de la del compañero keyboy, chico, yo probé con el "Reverse" pero me hice un lío...

Por cierto, creo que la de keyboy se muestra favorita, ahora, eso sí, le falta algo:

mmmm, Yo ni siquiera he podido ver como funciona ese ReverseString(), no existe en mi rudimentario Delphi4 , bueno, ya vere mañana en mi TurboDelphi

Salud OS

[[Delphius]]

Jeje... me ganaron... yo ya estaba preparando una función... pero bueno... mejor no intento.

Total, cuando vengan por aquí Domingo y Javier veremos como queda la cosa.

Mientras tanto veo como ganarles en ASM.

Saludos,

[dec]

Hola,

Empezado por egostar

mmmm, Yo ni siquiera he podido ver como funciona ese ReverseString(), no existe en mi rudimentario Delphi4

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

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

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;

Bye

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

[[Caral]]

Hola
Retomando este tema.
La función devuelve el ultimo dato (usando cualquiera de las funciones).
Me preguntaba si seria posible que devolviera el dato que uno necesite, el primero o el segundo o el ultimo (como en este caso).
Lo He intentado pero al contar el dato de atrás para adelante me coloca todas las palabras según van.
Se podrá hacer la diferenciación? o se necesitara otra función.?
Gracias
Saludos

[[Delphius]]

Mi buen amigo Carlos, ¿Por casualidad te refieres a esto?

Código Delphi [-]
TLaminaInfo = (liName, liDimension, liColor);

function GetLaminaInfo(LaminaText: string; Info: TLaminaInfo): string;
var PosIni, PosEnd: integer;
begin
  //preventiva
  PosIni := 0;
  PosEnd := 0;

  // Dependiendo de la info a pedir, calculamos posiciones
  // iniciales y finales
  case Info of
  liName: begin
            Posini := 1;
            PosEnd := Pos(' ',LaminaText);
          end;
  liDimension: begin
                 PosIni := Pos(' ',LaminaText) + 1;
                 PosEnd := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 2;
               end;
  liColor: begin
             PosIni := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 1;
             PosEnd := Length(LaminaText) + 1;
           end;
  end;

  // copiamos el texto que esté comprendido desde PosIni a PosEnd
  result := Copy(LaminaText,PosIni,PosEnd - PosIni);
end;

Saludos,