[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

krypt3r, у него тоже самое написано =)

Таблицы не получится, если числа разного разряда(вернее она будет кривая).
И это не С, индексы массива записываются [i,j]

+voron+, поделись шмалью =\

 

~|~евто|-|, если доработать код, то получится. Я основу дал, пусть чел сам до ума доводит.

У меня FreePascal, он и так проглотил, и эдак)) Кроме того, код перед постом я проверяю. Не постил бы, если б не работало

 

дапля дело не втом .
Вот:

program bugoga;
{$APPTYPE CONSOLE}
uses SysUtils,crt;
var
n,k,i,j: integer;
M : array [1..15,1..15] of integer;

begin
n:=15;
k:=15;
randomize;
For i:=1 to n do
For j:=1 to k do
M[j,i]:=random(15)-4;
For i:=1 to n Do begin
For j:=1 to k
Do Write (M[i,j]:2,' ');
writeln;
End;
Readln;
end.

Но она невыведется!!

Но если CRT не юзать То выводится симпатишная табличка 15х15

=> всё из-за crt

 

Лол, чувак, crt - это для TurboPascal'я, нафига тебе в дельфях crt?

 

+voron+, в данном случае тебе crt вообще не нужно =\

А о использовании crt в делфях почитай например тут _h*tp://www.delphilab.ru/content/view/154/88/

 

Скиньте CRT.PAS и CRT32.PAS , те у кого это
...
TexTColor (green);
For i:=1 to 10
Do Write (M:2,' ');
...
Выводит строку из 10 эл-ов

 

У меня такая проблема:
Короче пишу программу, на форме есть компонент TStringGrid
Мне надо чтобы при закрытии программы информация с этого компонента сохранялась в файл
А при открытии чтобы информация из файла извлекалась и компонент заполнялся ей...
Помогите хотябы с одной процедурой, со второй я разберусь)))
Кого не спрашивал никто не знает...

 

Покопайся в ентих исходниках мошт и паймёшь как реализовать своё.
http://slil.ru/25393066

 

Нашел сорец сохранения и загрузки, все просто оказывается)))

Code:

procedure SaveGrid;
var
  f: textfile;
  x, y: integer;
begin
  assignfile(f, 'Filename');
  rewrite(f);
  writeln(f, stringgrid.colcount);
  writeln(f, stringgrid.rowcount);
  for X := 0 to stringgrid.colcount - 1 do
    for y := 0 to stringgrid.rowcount - 1 do
      writeln(F, stringgrid.cells[x, y]);
  closefile(f);
end;

procedure LoadGrid;
var
  f: textfile;
  temp, x, y: integer;
  tempstr: string;
begin
  assignfile(f, 'Filename');
  reset(f);
  readln(f, temp);
  stringgrid.colcount := temp;
  readln(f, temp);
  stringgrid.rowcount := temp;
  for X := 0 to stringgrid.colcount - 1 do
    for y := 0 to stringgrid.rowcount - 1 do
    begin
      readln(F, tempstr);
      stringgrid.cells[x, y] := tempstr;
    end;
  closefile(f);
end;

 

Думаю мой вопрос уже задовался но 101 страницу листать нет времени =( а поиск молчит..... (гугл тоже)
Дайте ссылку на наиболее полное описания компонентов делфи.
Очень надо...
Зарание спасибо

 

Вот тут есть парочка (100 штук) компонентов и их описание

Скачать (~1.19 Мб)

 

нашол я эту книгу но меня интересуют не не те компоненты =)
меня интересуют indy, Internet, Rtl компоненты

 

Ну вот с этого и надо было начинать, могу закинуть книжечку по Indy, правда там не совсем описания компонентов, а в основном про протоколы и основы

 

не мнеб описание компонента примеры работы с ним и так далее...

 

Anjoi
http://podgoretsky.com/ftp/Docs/Internet/IntroIndy/IndyInDepth.pdf

 

Во спасибо сейчас гляну.
Тагже кому интересно то почитайте тут
http://www.realcoding.net/article/view/284

 

создание процесса из части файла....

Всем кто согласится помоч особая благодарность....

Допустим что мы имеем файл temp.temp в котором куча
всякой информации а в серединке вшито содержимое программы.

Вопрос:

Как программным путем запустить [exe programm] (смотри схему ниже) из файла temp.temp ??? чтобы она выполнялась

схема файла temp.temp :​

( [file1][file2][exe programm][file4][file5][и т.д.] )​

 

самое банальное отпарсить до ..[e, и вырезать, потом до m] и после этого тоже обрезать, оставшееся переименовать в temp.exe (ну или изначально скопировать [exe programm] в temp2.exe).. потом через execute.. как обычно

p/s/ поставь задачу конкретнее

 

Напрямую запустить код, это надо его грузить в память и тд и тп, я приведу более простой вариант, и поясню выше указанный пост подробнее:
1)Открываешь этот файл с помощью:
_file:=Createfile(pchar([Путь до него]), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
2)Указываешь позицию с которой произойдет считывание, так:
SetFilePointer(_file,[кол-во быйт], nil, FILE_BEGIN);
3)Читаешь нужное кол-во:
ReadFile(_file, [<буффер>], sizeOf([<буффер>]), _temp, nil);
4)Создаешь левый файл: _filenew=CreateFile(pchar([Путь])),GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_NEW, 0, 0);
5) Записываешь в него содержимое из буффера:
WriteFile(_filenew, [<буффер>], sizeOf([<буффер>]), _temp, nil); //temp здесь сути не играет
6) Не забываем закрыть за собой дверь:
CloseHandle(_filenew);
CloseHandle(_file);

Ах, да ну и ShellExecute' ишь левый файл

 

да не то это все.... не записывая его в другой какойто файл.... пользовались когданить упаковщиком AsPack ???

вот он в файлы дописывает в начало свой код... при запуске он расшифровывает файлы и грузит их напрямую в память вроде....