Последние сообщения

А я скидываю всю важную инфу на флешку, при чем в архиве. Исходниками надо дорожить...

ни один из носителей не может дать гарантии 100 % сохранности в течении длительного времени.
100% сохранности вам обеспечит лишь распечатка или рукописно списанный код.

Никто не дает 100%-ую гарантию, что завтра ты будешь жить.
Но, все-таки, исходный код на венике и флешке помогут сохранить код. Я исключаю ситуацию порчи флешки и веника одновременно. А на счет рукописного кода или распечатки, так они пропадут у тебя еще быстрее  

А я скидываю всю важную инфу на флешку, при чем в архиве. Исходниками надо дорожить...

ни один из носителей не может дать гарантии 100 % сохранности в течении длительного времени.
100% сохранности вам обеспечит лишь распечатка или рукописно списанный код.

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
res:string;
begin
res:='';
for i:=0 to DBGrid1.DataSource.DataSet.FieldCount-1 do
begin
res:=DBGrid1.DataSource.DataSet.Fields.AsString;
memo1.Lines.add(res);
end;
end;
проверить нет возможностей
упал сервер мускула =(

Как в отчет RaveReports программно выводить графику (линии, дуги и др.)?

AJIeKcaHDP!
Воспользовавшись вашей подсказкой получилось следующее

procedure TForm1.Button11Click(Sender: TObject);
var
i:integer;
result:string;
begin
result:='';
for i:=0 to DBGrid2.DataSource.DataSet.FieldCount-1 do
result:=result+DBGrid2.DataSource.DataSet.Fields.AsString+'|';
memo1.lines.add(result);
end;

строки выводятся в поле Memo последовательно т.е выделяю строку, нажимаю кнопку, в поле попадает только выделенная строка... выделяю следующюю - добавляется и т.д т.е. приходится вручную выделять каждую строку и добавлять в Memo...

Можно ли вывести по одному нажатию кнопки содержимое всех строк таблицы в поле Memo?

ну молодец...
надо  пользоваться DropBox.
там не потеряется, а если удалишь то есть 30 дней на восстановление.
это не реклама а рекомендация. сам только так работаю.
подробней тут:
  http://forum.delphiexpert.ru/index.php?topic=2080.0

А я скидываю всю важную инфу на флешку, при чем в архиве. Исходниками надо дорожить...

А теперь как избавиться от этой ошибки вот самый простой способ

Переделай свой код следующим образом

Код:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
  config:tinifile; // объявим эту переменную в классе Tform
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 uses unit2,unit3;

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:integer;
//config:tinifile; // тут она уже не нужна
begin
config:=TiniFile.Create(extractfilepath(paramstr(0))+'test.ini');
a:=config.ReadInteger('conf','form2',0);
if a=1 then begin
              form3.AlphaBlendValue:=255;
              form1.Visible:=false;
            end
       else begin
              form2.visible:=true;
              form1.Visible:=false;
            end;
timer1.Enabled:=false;
end;

end.

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.config.writeinteger('conf','form2',1); // А тут мы уже обращаемся к переменной объявленной
// в первом модуле в классе Tform
timer1.Enabled:=true;
end;

Так образом у тебя используется только одна переменная которая уже заведомо проинициализированна

Ооооо брат интерестный ты файлик подкинул он просто пестрит порно ссылками а свиду такой безобидный   

Поздравяю ты нашол порно хакера)))))))) Ты хакер тут не появляйся, обидить не хочу но тут честные люди сидят, покрайней мери я точно, ну и ещё пару сотен)

ха-ха-ха порно-хакер!!! так еще никто не называл!!)))))))

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

Посмотри на коды твоих двух процедур

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:integer;
config:tinifile; // Обрати внимание на эту переменную
begin
config:=TiniFile.Create(extractfilepath(paramstr(0))+'test.ini');
a:=config.ReadInteger('conf','form2',0);
if a=1 then begin
              form3.AlphaBlendValue:=255;
              form1.Visible:=false;
            end
       else begin
              form2.visible:=true;
              form1.Visible:=false;
            end;
timer1.Enabled:=false;
end;

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
config:tinifile;  // И на эту переменную
begin
config.writeinteger('conf','form2',1);
timer1.Enabled:=true;
end;

И так в первом случае ты объявляешь локальную переменную (надеюсь ты знаешь что это)
и в коде ты ее инициализируешь

Код:

config:=TiniFile.Create(extractfilepath(paramstr(0))+'test.ini');

И у тебя все прекрасно работает

Теперь вспоминаем что локальные переменные доступны только тем процедурам и функциям в которых они используются. А теперь посмотри что ты делаешь во второй процедуре- ты снова объявляешь переменную с таким же именем и типом НО она ни как не связана с ервой твоей переменной и дальше ты пишешь

Код:

config.writeinteger('conf','form2',1);

хотя вторая твоя переменная не инциализированна вот поэтому у тебя и возникает ошибка

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