Exportar items de un TListBox del siguiente modo?
 

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:

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:

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

Espero una respuesta.

Saludo

Y cual es tu problema?
 

Y el problema es que...:confused::confused:

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:confused::rolleyes:
Que quieres separar?:confused:
Por favor sé.. mas claro y conciso.;)
Saludos...:)

Haver haver..
Te dejo una pic:

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?
* ...

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.

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.

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

No investigas.

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'

¿Qué versión de Delphi utilizas?

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