StringList com [Seções]

30/08/2004

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]



Macario

Respostas

30/08/2004

Nildo

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 ;-)


Responder Citar

30/08/2004

Nildo

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!


Responder Citar

30/08/2004

Macario

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.


Responder Citar

30/08/2004

Aroldo Zanela

Colega,

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

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



Responder Citar

30/08/2004

Macario

Olá Aroldo, boa tarde.

Dessa maneira estaria ordenando a stringlist?

Caso disponha de algum exemplo, ou local onde posso encontrar agradeço.


Responder Citar

30/08/2004

Nildo

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


Responder Citar

30/08/2004

Macario

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)



Responder Citar