Ir para conteúdo
Fórum Script Brasil
  • 0

Duvida! ajudem


Fabiomiojo

Pergunta

Bom dia a todos!

Estou criando um programa no qual ah varios campos a serem escritos.

esses campos depois deveraum serem salvos em um arquivo.txt

determinei que esses campos seraum add em um memo ao se clicar em salvar!

agora o meu problema!

quando o cliente clica em salvar os campos seraum adicionados no memo1 em ordem e para separar um campo do outro ele adiciona palavras chaves. <--(ate aqui é deboa)

(agora q ta o bixo)

quando o cliente clica em abrir o opendialog vai procurar no arquivo.txt salvo as palavraschaves e ira abrir em campos especificos o texto seguinte da palavrachave!

ex:ao salvar;

edit1.text entre palavra1 e 2

ao abrir

Procura palavra1 pega o texto entre a palavra 1 e 2, abri esse texto no edit1.text.

---

tentei um code mais não sei se é o correto a se fazer nesse caso! e ta dando um erro q não tenho a minima de como arumar!(sou iniciante em delphi xD)

segue code!

procedure TForm1.Abrir1Click(Sender: TObject);
Var
NomeDoArquivo:String;
v, x: integer;
begin
if OpenDialog1.Execute Then
begin
NomeDoArquivo:=OpenDialog1.FileName;
begin
for v:=Length('Vantagens') to x do
x:=Length ('Historia');
Memo1.Lines.LoadFromFile(NomeDoarquivo);
end;
begin
for v:=Length('Nome:') + 1 to x do
x:=Length ('Final');
Edit1.text.LoadFromFile(NomeDoarquivo);
end;

End;
end;

o erro:

[Error] fichadet.pas(196): Record, object or class type required

me ajudem plx!!

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

Use esta função:

function RetText(Txt,StrIn,StrFin: String;const def: string = ''): string;
var
  posIn,posFin,iniCp,qtCp: integer;
  s,tmp: string;
begin
  posIn := pos(StrIn,Txt);
  tmp := copy(txt,posIn+length(strIn),length(txt)-posIn+length(strin));

  posFin := pos(strFin,tmp)+posIn+length(strIn);

  IniCp:=posIn+length(strIn);
  qtCp:=posFin-(posIn + Length(strIn));

  s:=copy(Txt,Inicp,qtCp-1);

  if (posIn = 0) or (qtCp <= 0) then
  s:=def;

  result:=s;
end;
onde: Txt: é a frase strIn: é a palavra 1 strFin: é a palavra 2 def: é uma string default caso não exista strIn ou StrFin em Txt Exemplo:
.
.
.
//Ex: 1)
//Adote uma frase assim:
s:='<html>Palavra qualquer</html>';

//rest é uma variável que receberá o resultado da função
rest:=RetText(s,'<html>','</html>','');

//rest agora é: Palavra qualquer

//========================
/Ex: 2)
//Adote uma frase assim:
s:='<html>Palavra qualquer<html>';

//rest é uma variável que receberá o resultado da função
rest:=RetText(s,'<html>','<html>','');

//rest agora é: Palavra qualquer

//========================
/Ex: 3)
//Adote uma frase assim:
s:='<html>Palavra qualquer<html>';

//rest é uma variável que receberá o resultado da função
rest:=RetText(s,'<\html>','<html>','ERRO');

//rest agora é: ERRO


//========================
/Ex: 4)
//Adote uma frase assim:
s:='<html>Palavra qualquer<html>';

//rest é uma variável que receberá o resultado da função
rest:=RetText(s,'<html>','<\html>','ERRO');

//rest agora é: ERRO
Em cima disso você pode utilizar o seu código! PS.: há erros no seu código:
.
.
.
//você declarou x, porém não inicializou ele com valor nenhum e
//se a segunda linha (x:=Length ('Historia');) era pra determinar o valor do final do loop (for)
// ele tem que ser colocado antes do for
//Erro:
for v:=Length('Vantagens') to x do
x:=Length ('Historia');

//Correto:
x:=Length ('Historia');
for v:=Length('Vantagens') to x do

.
.
.

Até mais!

Link para o comentário
Compartilhar em outros sites

  • 0

alguém ??

ah se v6 tiverem me mandem um totorial pra aprender a mexer com BD(so novato xD)!

o programa q estou qerendo montar vai ter muitos dados e axo que fica mais facil se eu utilizar uma tabela onde os dados serão escritos em campos diferentes depois adicionados na tabela e depois ao clicar em abrir são estraidos para seus lugares de origem

fazendo com arquivo txt vai fica muito grande!!

Link para o comentário
Compartilhar em outros sites

  • 0

Obrigado Jhonas pelos links!!

---

marcos ps09

não entendi como funciona o code q você me passou!!

me da um exemplo uzando os campos q necessito uzar!

ao axar a palavra ele pega o texto seguinte e o adiciona em um campo pre determinada

ex:

procura:= 'vantagens:'

axou no texto

vantagens:

texto sobre vantagens

final de vantagens.(palavra q encera ate onde devese pegar o texto)

coloca esse texto em um memo.

procura:= "Nome:'

axa no texto

Nome:

fabiomiojo

Final de Nome.(palavra q encera ate onde devese pegar o texto)

coloca esse texto em um Edit.text.

me desculpem se dou muito trabalho + so novato no delphi e não to conseguindo monta isso direito...

Link para o comentário
Compartilhar em outros sites

  • 0
me desculpem se dou muito trabalho + so novato no delphi e não to conseguindo monta isso direito...

As apostilas que te passei é justamente para voce poder entender como montar uma tabela para guardar os dados que quer extrair do texto....

sem leitura fica dificil aprender .... para quem está iniciando, leitura é fundamental

O colega M@RcOs já te passou algo que voce poderia usar para esta finalidade, mas parece que voce não entendeu... então sugiro que leia mais sobre o delphi

abraço

Link para o comentário
Compartilhar em outros sites

  • 0
estou lendo sobre BD mais ainda gostaria de saber como faço o que que necessito pelo arquivo txt sem uzar BD...

Utilizar arquivo txt para armazenar dados em um sistema é andar na contra-mão, mas se for a título de aprendizado veja estes exemplos

http://imasters.uol.com.br/artigo/2718/del...rquivos_textos/

http://www.delphimais.com/modules/smartsec...m.php?itemid=59

http://www.linhadecodigo.com.br/Artigo.aspx?id=354

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...