VPF::аналог gotoxy в Delp или как заставить код работат

Berliner

Дата 22.2.2011, 02:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Есть код под паскаль с goto x y
как заставить этот код рабоать в делфи

Код


Begin
    assign(f,'work.dan');
    reset(f);
    writeln('Введите номер цеха');
    readln(c); {считываем ключ запроса: номер цеха по которому нужна информация} 
    k:=0; s:=0; maxz:=0;
    writeln('Ведомость работников цеха ',c);
    while not(eof(f)) do
    begin
        read(f,p);
        with p do
        begin
if ceh=c then {если номер цеха в записи совпадает со значением запроса проводим обработку} 
            begin
                k:=k+1;
                s:=s+zar;
                write(name);
                gotoxy(25,Wherey);
                writeln(zar:4:2);
if pol='м' then {ищем мужчину с максимальной зарплатой } 
                if maxz<zar then
                maxz:=zar;
            end;
        end;

northener

Дата 22.2.2011, 03:06 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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

Цитата(Berliner @ 22.2.2011, 02:38

)

Есть код под паскаль с goto x y
как заставить этот код рабоать в делфи

Переписать его! Зная алгоритм. То бишь зная для чего это нужно.

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

1000000dollars

Дата 22.2.2011, 09:16 (ссылка)

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

Загрузка ...

Бывалый

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

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

Есть такая API SetConsoleCursorPosition, которая позиционирует курсор в заданную точку экрана.

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