Fórum TXT com TStrings??? #198158
01/12/2003
0
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?
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
Curtir tópico
+ 0
Responder
Posts
01/12/2003
Carlos Filho
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:
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...
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)