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
Pergunta
Fabiomiojo
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
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.