to n do begin for j := 1 to m do begin a[i,j]:=Random(20); write(a[i,j],' '); end; Writeln; end;
n,m не инициированы var a:array[1..20,1..20] of Integer;
ты обращаешься к одномерному массиву, как к многомерному
Господа, а что сейчас вообще с рынком труда на делфи происходит? Какова ситуация?
30500 за редактор? )
а через ESC-код ?
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
Всем привет! Имеется функция: function IsValidChar(ch: UTF8Char): Boolean; var i: Integer; ValidChars: AnsiString; begin ValidChars := 'abcdefghijklmnopqrstuvwxyzABCDE...
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
в JclConsole объявлено так: function CtrlHandler(CtrlType: DWORD): BOOL; stdcall; - где ваше объявление с stdcall? у вас на картинке нет stdcall
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
у вас два процесса. один посылает другому сигнал. у вас есть код обоих процессов? если всё не так - расскажите как оно на самом деле. а именно кто кому чего, есть-ли консоли,...
Хм, не переборщил ли с подсветкой адресов? Суть задумки взята из x64dbg, красным подсвечиваются адреса указывающие на исполняемый код, зеленым на данные (грубо на выделенную п...
Обсуждают сегодня