Tweet
Estou tentando abrir um arquivo txt no delphi, porém, quando compilo dá esse erro "
Por quê está dando esse erro e como resolve-lo?
[Error] Unit1.pas(38): Type of expression must be BOOLEAN" eis o código do programa:
procedure TForm1.btnAbrirClick(Sender: TObject);
var
arquivo: TextFile;
LinhasArq: String;
begin
memoTexto.Clear;
if (dialogAbrir) then
if (dialogAbrir.FileName <> '') then
begin
editAbrir.Text := dialogAbrir.FileName;
AssignFile(arquivo,dialogAbrir.FileName);
Reset(arquivo);
While Not (Eof(arquivo)) do
begin;
Readln(arquivo,linhasArq);
memoTexto.Lines.Add(linhasArq);
end;
CloseFile(arquivo);
end;
end;
end.
procedure TForm1.btnAbrirClick(Sender: TObject);
var
arquivo: TextFile;
LinhasArq: String;
begin
memoTexto.Clear;
if (dialogAbrir) then
if (dialogAbrir.FileName <> '') then
begin
editAbrir.Text := dialogAbrir.FileName;
AssignFile(arquivo,dialogAbrir.FileName);
Reset(arquivo);
While Not (Eof(arquivo)) do
begin;
Readln(arquivo,linhasArq);
memoTexto.Lines.Add(linhasArq);
end;
CloseFile(arquivo);
end;
end;
end.
Comment