Ajuda com um Problema meu :o

[xXGabrielGTAXx 3]

Bom Depois de 4 meses voltei k!

Estou fazendo um programa que , em um listbox , ao fechar o form salva um .ini com a lista!

 

 

\FILE 1\

FILE=ARQUIVO.EXE

\FILE 2\

FILE=ARQUIVO.EXE

 

Assim tá pegando normal , meu problema e quando vai carregar a lista!

Codigo:

procedure TForm1.FormCreate(Sender: TObject);

var Ini : TIniFile;

IniFile : String;

I : Integer;

ST : TStringList;

begin

DragAcceptFiles( Handle, True );

IniFile := './ActionScript.ini';

with TIniFile.Create(IniFile) Do

try

ST := TStringList.Create;

try

ReadSections(ST);

SetLength(Records,St.Count);

for I := 0 to ST.Count - 1 do

ListBox1.Items.Add(ReadString('File '+ST,'File',''))

finally

Free;

end;

except on E:Exception do begin

ShowMessage('Erro!'+'Mensagem:'+E.Message);

end;

end;

end;

 

O Codigo tá adicionando items , so que sem o texto!

Alguem sabe como fixar?

@EDIT ----------------------------------

Consegui Arrumar Usando XML!

Codigo :

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var Node : IXMLNode;

I,M : Integer;

begin

Action := caNone;

M := MessageBox(Handle, 'Deseja Salvar a Lista?', 'Executar Avançado', MB_YESNOCANCEL or mb_ICONINFORMATION);

if M = IDYES then begin

node := XMLDocument1.DocumentElement.ChildNodes.FindNode('files');

if(node <> nil)then begin

for I := 0 to ListBox1.Items.Count - 1 do

Node.ChildNodes['file'+IntToStr(I)].Text := ListBox1.Items.Strings;

end;

Action := caFree;

end else if M = IDCANCEL then

Action := caNone

else if M = IDNO then

Action := caFree;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

var Node : IXMLNode;

I : Integer;

T : TStrings;

begin

DragAcceptFiles( Handle, True );

if not fileexists('./ActionScript.xml') then begin

try try T := TStrings.Create;

T.Add('<?xml version="1.0" encoding="windows-1250"?>');

T.Add('<start>');

T.Add('<files>');

T.Add('</files>');

T.Add('</start>');

T.SaveToFile('./ActionScript.xml');

finally

T.Free;

end;

except on E:Exception do

ShowMessage('Erro de Violação!'+#13+'Mensagem:'+E.Message);

end;

end;

XMLDocument1.Active := True;

node := XMLDocument1.DocumentElement.ChildNodes.FindNode('files');

if(node <> nil)then begin

for I := 0 to node.ChildNodes.Count - 1 do

ListBox1.Items.Add(node.ChildNodes['file'+IntToStr(I)].Text);

end;

end;

 

[ChorouPaarou~ 0]

lol , por causa de 1 erro voce nao acerta kkk

[curruwilliam 1]

Area errada amigo..

[Jm' 981]

Atenção!

 

Seu tópico encontra-se na área errada.

Leia as descrições das áreas antes de postar .

 

Leia as Regras do Fórum:

 

• Regras Web Cheats