Incompatibilidade de Tipos

Delphi

05/05/2003

Veja o código a seguir.

procedure TForm1.Imprimir1Click(Sender: TObject);
var
line:integer;
Printtext:textfile;
begin
Assign(Printtext); ------ Erro -> Incompatible types: TPersistent ant Text
if printdialog1.execute then
begin
assignprn(printtext);
rewrite(printtext);
printer.canvas.font:=memo1.font;
for line:=0 to memo1.lines.count-1 do
begin
writeln(printtext,memo1.lines[line]);
end;
closefile(printtext);
end;
end;

Como mostrado acima o seguinte erro é retornado:
Erro -> Incompatible types: TPersistent ant Text

Se alguém souber
Agradeço.


Manjuneiro

Manjuneiro

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

05/05/2003

Se você pretende carregar um arquivo texto para a variável PrintText, então o código correto seria:

AssignFile(PrintText, ´c:\nomedoarquivo´);


GOSTEI 0
POSTAR