Exportar items de un TListBox del siguiente modo?

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

[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