Exportar items de un TListBox del siguiente modo?

[THACKER]

Hola.

Ya que se borro la base de datos, yano tengo los threads que yo ise, con las repuestas. Y bueno, entonces tengo que venir a preguntar lo mismo. Y esta ves, los guardare en un CD!.

Bueno al caso, tengo los siguientes componentes: 2 TEdit, y 1 TListBox.

El usuario llena los dos TEdit, y guarda el contenido de cada uno en el TListBox asi:

47777 / Es incorrecto

En el cual el " / " es un separador. Ahora, una ves rellenado el TListBox, se exporta el contenido en un TMemo el cual guardara la informacion en un archivo .LUA:

    if(msgcontains(msg, '47777')) then
selfSay('Es incorrecto', cid)
end

No se si me explique bien, pero no seme da bien el español.

Espero una respuesta.

Saludo

[rgstuamigo]

Y el problema es que...

[THACKER]

El problema es que no se como separarlos, no soy un programador Delphi. Aun estoy estudiando... Pienso una ves entre en las vacaciones.. un poco de ayuda por favor ?

[rgstuamigo]

Empezado por THACKER

El problema es que no se como separarlos, no soy un programador Delphi. Aun estoy estudiando... Pienso una ves entre en las vacaciones.. un poco de ayuda por favor ?

Disculpa pero no entiendo bien lo que pretendes hacer
Que quieres separar?
Por favor sé.. mas claro y conciso.
Saludos...

[THACKER]

Haver haver..
Te dejo una pic:

[Neftali [Germán.Estévez]]

Yo estoy igual que rgstuamigo, no entiendo lo que necesitas.

¿Qué código te falta? ¿Tienes algun error?

¿De la imagen que has puesto, qué es lo que no sabes hacer?
* ¿El primer botón?
* ¿El segundo botón?
* ...

[Axel_Tech]

Lo que yo he entendido es que necesita separar en 2 partes cada Item del ListBox para luego meterlo en el Memo, es decir coger lo que hay a un lado y a otro del carácter '/'.
Si es así creo que algo como esto podría valer:

Código Delphi [-]
string1 := AnsiLeftStr(ListBox1.Item[i], AnsiPos('/', ListBox1.Item[i]) - 2);
string2 := AnsiMidStr(ListBox1.Item[i], AnsiPos('/', ListBox1.Item[i]) + 2, Length(ListBox1.Item[i]) - AnsiPos('/', ListBox1.Item[i]));

*Nota: i sería el índice del Item del ListBox.

[Neftali [Germán.Estévez]]

Si estás con alguna versión antigua de Delphi, en lugar de AnsiLeftStr y AnsiMidStr deberás utilizar el Copy combuinado con el AnsiPos.

[THACKER]

Build
[Error] Unit1.pas(59): Undeclared identifier: 'AnsiLeftStr'
[Error] Unit1.pas(59): Undeclared identifier: 'Item'
[Error] Unit1.pas(59): Undeclared identifier: 'Item'
[Error] Unit1.pas(60): Undeclared identifier: 'AnsiMidStr'
[Error] Unit1.pas(60): Undeclared identifier: 'Item'
[Error] Unit1.pas(60): Undeclared identifier: 'Item'
[Error] Unit1.pas(60): Undeclared identifier: 'Item'
[Error] Unit1.pas(60): Undeclared identifier: 'Item'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

No sirve ;S

[jhonny]

Empezado por THACKER

No sirve ;S

No investigas.

[THACKER]

Le investigue ahorita, perdon la molestia pero ando estudiando matematica entonces... Bueno, busque en Delphi al Limite, y consegui esto:

Código Delphi [-]
function AnsiLeftStr( const AText: AnsiString; const ACount: Integer ): AnsiString;
function AnsiMidStr( const AText: AnsiString; const AStart, ACount: Integer ): AnsiString;

Los agregue, y me devuelbe:

Código Delphi [-]
[Error] Unit1.pas(66): Unsatisfied forward or external declaration: 'AnsiMidStr'
[Error] Unit1.pas(9): Unsatisfied forward or external declaration: 'AnsiLeftStr'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Neftali [Germán.Estévez]]

Empezado por THACKER

...Los agregue, y me devuelbe:[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Empezado por Neftali

Si estás con alguna versión antigua de Delphi, en lugar de AnsiLeftStr y AnsiMidStr deberás utilizar el Copy combinado con el AnsiPos.

¿Qué versión de Delphi utilizas?

[Axel_Tech]

Empezado por THACKER

Le investigue ahorita, perdon la molestia pero ando estudiando matematica entonces... Bueno, busque en Delphi al Limite, y consegui esto:

Código Delphi [-]
function AnsiLeftStr( const AText: AnsiString; const ACount: Integer ): AnsiString; 
function AnsiMidStr( const AText: AnsiString; const AStart, ACount: Integer ): AnsiString;

Los agregue, y me devuelbe:

Código Delphi [-]
[Error] Unit1.pas(66): Unsatisfied forward or external declaration: 'AnsiMidStr' 
[Error] Unit1.pas(9): Unsatisfied forward or external declaration: 'AnsiLeftStr' 
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

No tienes que declararlas, sólo tienes que agregar StrUtils a tus uses.

Por cierto no es ListBox1.Item[i], sino ListBox1.Items[i]. Fallo mío