Объявление процедуры

fbgvfbfgn
Дата: 01.12.2007 07:09:47
Добрый день. Проблема в следующем, хочу написать процедуру которая при передачи в нее числа будет в файлке рисовать определеное число пробелов. Пробовал

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
procedure drawspace(i:integer);
var j:integer;
begin
for j:= 1 to i do
write(ff,#32);
end;
begin
assignfile(ff,'C:/'+ edit1.text +'.txt');
rewrite(ff);
writeln(ff,drawspace(4));
end;
end.

Не работает пишет [Error] Unit1.pas(62): Illegal type in Write/Writeln statement.
Как правильно подскажите пожалуйста.
Anatoly Podgoretsky
Дата: 01.12.2007 10:37:46
Так нельзя же использовать процедуру как параметр функции.

Да и кол ужасный, откуда такой взял?

Нафига нужна подобная процедура с циклом генерации пробелов, когда есть куча функций для этого, например DupeString, StringOfChar.

Зачем то ключ в пути.

Две ненужные переменные I и J

Диагноз обычный, русский - переписать все нафиг.

Posted via ActualForum NNTP Server 1.4