Identificar parte de un dato dentro de un campo

[dec]

Hola,

Yo sigo a lo mío... Creo que mi anterior función podría (y aun debería) quedar así, mejor o peor:

Código Delphi [-]
function GetLaminaType(rawData: string): string;
var
  i: integer;
begin
  result := '';
  i := Length(rawData);
  while (i >= 1) do begin
    if (rawData[i] = ' ') then
      break;
    result := rawData[i] + result;
    Dec(i);
  end;
end;

Nótese que ahora el bucle aguantaría mientras la variable "i" valiera igual o más que 1. ¿Por qué así ahora? Porque, si no recuerdo mal, las cadenas en Delphi son "Arrays" de caracteres cuyo índice comienza en uno, no en cero. Tal anteriormente la función de marras podría haber dado algún problema... ¡tal vez incluso ahora pueda darlos!

PD. Probándolo de nuevo no parece haber problema con el "cero", pero, el "uno" me sigue pareciendo más oportuno. Además he añadido el "result" del principio, por principio.

[keyboy]

Yo propongo esta:

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

begin
  Espacio := Pos(' ', ReverseString(Dato));
  Result := Copy(Dato, Length(Dato) - Espacio + 2, Length(Dato));
end;

Bye

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