Identificar parte de un dato dentro de un campo

[[Caral]]

Hola
En tu ultimo ejemplo, que me parece genial ademas de practico me genera este error:

[Error] Unit1.pas(166): Incompatible types: 'TLaminaInfo1' and 'Integer'

en esta linea:

Código Delphi [-]
Edit2.Text := GetLaminaText(Edit2.Text,ComboBox4.ItemIndex);

No se si tendra que ver con que tendria que devolver un integer y pide un string.
No entiendo el por que??.
Saludos

[[Delphius]]

¡Ouch!
Como se nota que he perdido la práctica con los enumerados!

Entonces modifica a la función por esta otra:

Código Delphi [-]
function GetLaminaInfo(LaminaText: string; Info: integer): 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
  0: begin
            Posini := 1;
            PosEnd := Pos(' ',LaminaText);
          end;
  1: begin
                 PosIni := Pos(' ',LaminaText) + 1;
                 PosEnd := Length(LaminaText) - Pos(' ',ReverseString(LaminaText)) + 2;
               end;
  2: 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;

Y te olvidas del tipo TLaminaInfo, borralo.
Y ya no deberías tener problemas.

Saludos,

[[Caral]]

Hola
Muy interesante el concepto, Efectivamente funciona.
Gracias por el apoyo, me cuesta entender el concepto de las funciones pero con estas practicas voy aprendiendo.
Gracias de nuevo amigo.
Saludos

[[Delphius]]

Hola Carlos, tal vez estos links te sean de ayuda para comprender el tema de funciones y procedimientos:

http://www.clubdelphi.com/foros/showthread.php?t=49698
http://www.clubdelphi.com/foros/showthread.php?t=49246

Hay más, solo los pongo de ejemplo. Básicamente:

La función devuelve un valor, un procedimiento no.
Ambos no necesariamente pueden pertenecer a una clase, pueden estar "sueltos" en las units.

Por ejemplo cuando uno hace:

Código Delphi [-]
TForm1 = class
  // bla
  // bla, bla,
  funcion Elegir(Numero: integer): String;
  // bla
end;

Lo que hace es indicar que la función elegir es parte de la clase TForm1. Y es por ello que al momento de escribir su código debemos indicarle su "dueño":

Código Delphi [-]
function TForm1.Elegir(Numero: integer): string;
begin
  //bla...
end;

Pero si no necesariamente debe tener un "dueño", Podemos tenerla libremente en una Unit:

Código Delphi [-]
Unit UCualquiera;

interface

funcion Elegir(Numero: integer): string;

// ...

implementation

function Elegir(Numero: integer): string;
begin
  // bla...
end;

Ejemplos de funciones sueltas son inc(), dec(), Length().
Un ejemplo de una función con dueño es CloseQuery, que le pertenece a la clase de la cual desciende los objetos TForm.

Espero que esto te haya servido para comprender mejor la diferencia entre funciones y procedimientos e igualmente para comprender a que se debe ese TForm1.XXXXXX.

Saludos,

[[Caral]]

Hola
Gracias amigo, voy a revisar los link, si no entiendo algo ya te avisare (osea, lo mas seguro).
Saludos