StringList com [Se��es]

Question

Como fazer para criar e ler uma stringlist com se��es?

tipo

[FORMATO]
CARTA
[MEDIDAS]
10
10
10
10
[TEXTO]
ABCD
ABCDE
ACBDEF
ANCDEFG
[POSI��O]
10
10

isto vai servir para eu incluir objetos em run-time

alguem tem uma dica

[color=red:d5ea6e1e81]Retorno de pesquisa: 0[/color:d5ea6e1e81]

Nildo · Answer

Fa�a uma fun��o que voc� passa como par�metro a Se��o e o texto pra ser adicionado. Dae voc� faz uma pesquisa nessa ListBox (utilizando ListBox1.Items.IndexOf) pela Se��o passada como par�metro, ele vai retornar um n�mero, feito isso voc� utiliza o comando ListBox1.Items.Insert, passando o resultado da pesquisa e o texto a ser adicionado.

Espero que tenha entendido ;-)

Nildo · Answer

Ps.: Utilize o TIniFile! � bem mais pr�tico!

declara a unit IniFiles

e a variavel do tipo TIniFile;

cria ela e utiliza os comandos WriteString e ReadString desse TIniFile.

espero que tenha sido util!

Macario · Answer

Ol� nildo com Ini eu to usando.so que acho mais pratico em alguns casos usar stringlist, dai a duvida.Se teria como usar da mesma maneira. sem ser por la�o for....

Aroldo Zanela · Answer

Colega,[code:1:029eb6168e]var Arquivo: TStringList;    Secao: String;    posicao: Integer;begin  Arquivo := TStringList.Create;  Arquivo.Sort;  Arquivo.Find(secao, posicao)[/code:1:029eb6168e]...

Macario · Answer

Ol� Aroldo, boa tarde.Dessa maneira estaria ordenando a stringlist?Caso disponha de algum exemplo, ou local onde posso encontrar agrade�o....

Nildo · Answer

Isso ser mais pr�tico que um INI � dificil hein? Voc� pode usar o TMemIniFile, ele se baseia na mem�ria e n�o em arquivos. Ou ent�o d� uma olhada no THashedStringList.

Todos esses est�o na unit IniFiles

Macario · Answer

A praticidade est� quando n�o se usa Se��es.

Apenas para ler e gravar, � mais simples.

O que voce sabe sobre isso que o Aroldo postou?

var Arquivo: TStringList; 
    Secao: String; 
    posicao: Integer; 
begin 
  Arquivo := TStringList.Create; 

  Arquivo.Sort; 
  Arquivo.Find(secao, posicao)