Fórum Problema com Transferência de dados entre arquivos #394980
03/02/2011
0
Olá estou com um problema onde ocorre erro na linhas:
readln(arq, guard);writeln(ar2, guard);
Ocorre os seguintes erros:
[Error] Unit1.pas(53): Incompatible types[Error] Unit1.pas(54): Illegal type in Write/Writeln statement[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
OBS: Quando tiro o ln das duas funções o código compila
[code]
...
procedure faz;vartmp : boolean;guard : byte;begin
assign(arq,'c:\arquivo.bin');reset(arq);read(arq, guard);tmp := EOF(arq);
assign(ar2, 'c:\teste.bin');rewrite(ar2);reset(ar2);write(ar2, guard);
while(tmp <> true) dobegin
readln(arq, guard);writeln(ar2, guard);
end;
close(arq);close(ar2);
end;
...
Agradeço se alguém puder ajudar.
readln(arq, guard);writeln(ar2, guard);
Ocorre os seguintes erros:
[Error] Unit1.pas(53): Incompatible types[Error] Unit1.pas(54): Illegal type in Write/Writeln statement[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
OBS: Quando tiro o ln das duas funções o código compila
[code]
...
procedure faz;vartmp : boolean;guard : byte;begin
assign(arq,'c:\arquivo.bin');reset(arq);read(arq, guard);tmp := EOF(arq);
assign(ar2, 'c:\teste.bin');rewrite(ar2);reset(ar2);write(ar2, guard);
while(tmp <> true) dobegin
readln(arq, guard);writeln(ar2, guard);
end;
close(arq);close(ar2);
end;
...
Agradeço se alguém puder ajudar.
Olocobixo
Curtir tópico
+ 0
Responder
Posts
03/02/2011
Efraim Santana
que tipo de dados você ta tentando transmitir... se for texto você pode usar uma StringList que fica bem mais facil.
se não resolver tenta da mais detalhe do problema.
var
strLst1, strLst2 : TStringList;
begin
try
strLst1 := TStringList.Create;
strLst2 := TStringList.Create;
strLst1.LoadFromFile('C:\Arquivo1.txt');
strLst2.LoadFromFile('C:\Arquivo2.txt');
//Faz as modificações no conteúdo das String List e salva os arquivos.
strLst1.SaveToFile('C:\Arquivo1.txt');
strLst2.SaveToFile('C:\Arquivo2.txt');
finally
strLst1.Free;
strLst2.Free;
end;
end;
se não resolver tenta da mais detalhe do problema.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)