[mak-karpov]

Помогите, чем можете!
У меня есть 2 массива

Код:

var
    XOut : array [0..23] of string;
    XClr  : array [0..23,0..78] of integer;

Проблема в том, что эти массивы надо вывести на экран (и переодически обновлять)(10 раз в секунду).

Код:

procedure XScreenOut;
var x,y : integer
begin
    ClrScr;
    for y := 0 to 23 do
        for x := 0 to 78 do begin
            if XClr[y,x] = 1 then begin
                TextColor(Back);
                TextBackground(Fore);
            end;
            if x = 78 then writeln(XOut[y,x])
                        else write(XOut[y,x]);
            if XClr[y,x] = 1 then begin
                TextColor(Fore);
                TextBackground(Back);
            end;
end;

но дело в том, что вывод происходит с жутким мерцанием.
Никто незнает, как это побороть?

[Страдалецъ]

1. Это-же вроде паскаль, а не дельфи.
2. Это-же вроде не консоль
3. ClrSrc - каждый раз вызывать плохо т.к. будет мерцать.
4. Добавьте в модули Crt. Будет существенно быстрее выводить на экран.

[KOOL]

1. Это-же вроде паскаль, а не дельфи.
2. Это-же вроде не консоль
3. ClrSrc - каждый раз вызывать плохо т.к. будет мерцать.
4. Добавьте в модули Crt. Будет существенно быстрее выводить на экран.

1. а чем дельфи не паскаль? 2. это консоль. 3. полностью согласен 4. без Crt нельзя очищать экран и менять цвета, поэтому он уже есть.

чтобы не мерцало, надо переписывать только те части экрана, которые меняются. есть такая процедура - GoToXY(x, y) которая перемещает курсор на заданную позицию. вызывай ее перед выводом изменений. например

Код:

clrscr;
writeln('123');
writeln('456');
writeln('789');
gotoxy(2, 2);
write(' ');

вместо 5 должен появится пробел

[Страдалецъ]

1. а чем дельфи не паскаль?

А вы сможете выполнить на дельфи этот код?

[KOOL]

разумеется, нет. но форум то не только о дельфи, но и простом паскале

[mak-karpov]

Ну так это дельфи

А каким боком окромя ClrScr можно это сделать?

[mak-karpov]

т.е. надо массив из 23 строк вывести на экран, каждый элемент массива в отдельной строке. При этом надо, выводя на экран по символу, проверить, и если значение элемента массива Xclr с индексом y,x (координаты текущего символа) равно 1, то вывести этот символ с инвертированым текстом и фоном.

Код:

TextColor(цвет фона)
TextBackground(цвет текста)