[Delirium]

я делфи конечно тоже не знаю, но скорее всего надо написать
If IsValue:=False And Buffer<>'=' Then KeyArr[ArrIdx]:=KeyArr[ArrIdx]+Buffer;

[ShaddyR]

If IsValue:=False And Buffer<>'=' Then KeyArr[ArrIdx]:=KeyArr[ArrIdx]+Buffer; »

точно - не знаешь, как и паскаля
>
Dr.Dark, ты бы того... типы вышеозвученных переменных привел, что ли..

[Dr.Dark]

Блин А ларчиг просто открывался

Код:

If (IsValue=False) And (Buffer<>'=') Then KeyArr[ArrIdx]:=KeyArr[ArrIdx]+Buffer;

Dr.Dark, ты бы того... типы вышеозвученных переменных привел, что ли.. »

Прошу прощения за не корректный вопрос IsValue:Boolean, Buffer:Char. А то что после Then синтаксически верно.
P.S. Можно задать исчо несколько маленьких вопросов тут, а то мне много тем открывать
P.P.S. А тему переименуем в "Вопросы чайников о Delphi"

[pva]

ещё исправь: If IsValue And (Buffer<>'=') Then...
не будь индиским прогером..

[ShaddyR]

ещё исправь »

стиль программирования - это хорошо. А внимательность - еще лучше: ты изменил логику условия. То бишь, тогда уже "if (not isvalue) and"..

Можно задать исчо несколько маленьких вопросов тут, а то мне много тем открывать »

мож, лучше соответствующую мурзилку почитать?

[Dr.Dark]

ShaddyR,

мож, лучше соответствующую мурзилку почитать? »

Ужо читкаю

ещё исправь: If IsValue And (Buffer<>'=') Then... »

Во!! Эт полезное замечание!!

не будь индиским прогером.. »

?? А почему именно индийским??
Ещё не могу понять как записать в массив все секции из ини файла
Пишу:

Код:

var
Components:Array of String [10];
...
CFGFile:=TIniFile.Create('autorun.cfg');
CFGFile.ReadSections(Components);

Ошибка:
[Pascal Error] Code.pas(52): E1012 Constant expression violates subrange bounds
Если кому не лень помогите...

[vserd]

b]Dr.Dark[/b],

Components: TStringlist;

Components:= TStringlist.create;
try
CFGFile:=TIniFile.Create('autorun.cfg');
try
CFGFile.ReadSections(Components);
finally
CFGFile.Free;
end;
finally
Components.free;
end;

[Dr.Dark]

Есть динамически генерируемая кнопка, как установить процедуру по щелчку?

[Alan85]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OnClik(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var b:tbutton;
begin
 b:=TButton.Create(form1);
 b.Parent:=form1;
 b.OnClick:=OnClik;
 b.Visible:=true;
end;

procedure TForm1.OnClik(Sender: TObject);
begin
 ShowMessage('hello');
end;

end.

небольшой пример