TXT com TStrings???

Delphi

01/12/2003

Pessoal, poderiam me ajudar no seguinte:

Vou criar uma procedure com a seguinte estrutura:

procedure cria_txt(Texto:String)

Essa procedure criará um arquivo txt com o conteúdo da variável Texto.

Queria ir armazenando as linhas em uma variavel, mais ou menos assim:

Variavel := ´linha1´;
Variavel := ´Linha2´;

por fim eu crio o Txt: Cria_txt(Variavel).

Com a Classe TStrings eu consigo fazer isso, mas alguém sabe como?


Danilorsa

Danilorsa

Curtidas 0

Respostas

Carlos Filho

Carlos Filho

01/12/2003

Aparentemente você está querendo salvar no arquivo as quebras de linha...

Para isso coloque no fim de cada linha os caracteres de quebra de linha:
#1310

ou

$0D$0A


A segunda forma é hexadecimal e muita gente não usa..

por exemplo sauponha que voce tenha 2 variaveis, cada uma com uma linha diferente, nesse caso...

//Definindo duas linhas (podem ser quantas você quiser)
linha1 := ´Primeira linha´; 
linha2 := ´Segunda linha´;

//Definindo uma variavel que receberá o texto completo
TextoCompleto := linha1 + 1310 + linha2;

//Salvando no txt (seu procedure)
cria_txt(TextoCompleto)


Você também poderia usar um objeto TStringList (não um TStrings) para armazenar linha a linha com o método ADD e usar a propriedade Text do seu objeto TStringlist.

Obs.: TStrings não é utilizavel pois só tem metodos vituais. Vc tem de usar um descendente de TStrings, no caso TStringList


GOSTEI 0
POSTAR