Текстовый редактор

[Nazario]

Помогите исправить код. Мне выбивает ошибку на строку:

procedure TMainForm.N6Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
Assign Prn(F); <--на эту строку 
Rewrite(F);
Writeln(F,(ActiveMDIChild as TChildForm).RichEdit1.Text);
System.CloseFile(F);
end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

а зачем там пробел7

AssignPrn(F);

[Человек_Борща]

Ну во первы х AssignPrn пишется слитно.

[Nazario]

не помогает, все равно ошибку выбивает.!

[Человек_Борща]

и ЧО? Мне от этого ни холодно, ни жарко.

О блин, люблю таких людей которые напишут "Помогите, ошыбко отакЭ" и сидят ждут у моря погоды. А те кто читает тему думают "и ЧО?" и переходят к следующей теме. Ибо в этой ТС не изьявил желания указать ошибку.

P.S. проверь, добавлен ли в uses модуль Printers

[Nazario]

думаете что я не ищу развязки этой проблеми.якщо вы так думаете то ошибаетесь, просто я не могу найти правельный решения потому и нипивав сюда. Модуль я дописал и все равно ошибку выдает....

[MyLastHit]

Ёлки палки, ошибка какая?

[Nazario]

not enough actual parameters

[MyLastHit]

чего то не то передаете в AssignPrn. Как у вас F объявлена и что с ней в процессе выполнения программы происходит?

[Человек_Борща]

Ну допустим AssignPrn в clx приложении это функция которая возвращает Tprinter и принимет 2 парметра вместо одного.

зажмите ctrl+наведите на свой "проблемный" AssignPrn и кликните мышкой, эксплорер кода должен перейти в модуль гдре расположена функция. Там и смотрите что надо передавать.