VPF::Вывод текста: Pascal - Форум программистов

Vco

Дата 31.10.2003, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 13.2.2003
Где: Москва

Репутация: нет
Всего: нет

Написал процедуру вывода текста всмысле по буквенно через задержку в модуле:

Код


unit name;

interface

type
big_Text=array[1..100] of char;

procedure show_text(my_Text:big_Text);

implementation

uses crt;


procedure show_text(my_text:big_Text);

var i:word;

begin
for i:=1 to length(my_text) do
begin
write(my_text[i]);
delay(100);
end;

end;


end.

знаю что всё коряво, но пишу в другой программе:

Код


uses name;
begin
show_Text('fdsfsd');
end;

Type mismatch
Что не так

--------------------

Я всегда где-то рядом...!

Pakshin A. S.

Дата 31.10.2003, 21:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

1) В Turbo Pascal лучше писать string[100] или вообще string
2) Если не в TurboPascal, то packed array [1..100] of char;
3) В основном модуле программы завести переменныю типа big_Text

Pakshin A. S.

Дата 31.10.2003, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

А вообще каков смысл ентой затеи?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »