procedure TMemIniFile.SetStrings(List: TStrings);
var
  I: Integer;
  S: string;
  Strings: TStrings;
begin
  Clear;
  Strings := nil;
  for I := 0 to List.Count - 1 do
  begin
    S := List[I];
    if (S <> '') and (S[1] <> ';') then
      if (S[1] = '[') and (S[Length(S)] = ']') then
        Strings := AddSection(Copy(S, 2, Length(S) - 2))
      else
        if Strings <> nil then Strings.Add(S);
  end;
end;

procedure TMemIniFile.SetStrings(List: TStrings);
var
  I, J: Integer;
  S: string;
  Strings: TStrings;
begin
  Clear;
  Strings := nil;
  for I := 0 to List.Count - 1 do
  begin
    S := Trim(List[I]);
    if (S <> '') and (S[1] <> ';') then
      if (S[1] = '[') and (S[Length(S)] = ']') then
      begin
        Delete(S, 1, 1);
        SetLength(S, Length(S)-1);
        Strings := AddSection(Trim(S));
      end
      else
        if Strings <> nil then
        begin
          J := Pos('=', S);
          if J > 0 then // remove spaces before and after '='
            Strings.Add(Trim(Copy(S, 1, J-1))   '='   Trim(Copy(S, J 1, MaxInt)) )
          else
            Strings.Add(S);
        end;
  end;
end;

引言: 先說明，小弟是使用 BCB5 在應用 TMemIniFile 時發現其 ReadString() 有問題，其他如 ReadSections() 等也有問題，而在 BCB6 中則沒有問題，於是想把 BCB6 中的 inifiles.pas 中有關的部分更新到 BCB5 的 inifiles.pas，再重新組譯 inifiles.pas。 可是，要如何才能將它更新到 VCL50.bpl(VCL50.dpl) 內呢？ 不知道有沒有人在 Delphi 或 BCB 中更新過內建的 VCL 元件？

引言: TMemIniFile = class(inifiles.TMemIniFile) <--關鍵行

class DELPHICLASS TMemIniFile;
class PASCALIMPLEMENTATION TMemIniFile : public TCustomIniFile 
{
        typedef TCustomIniFile inherited;
public:
        void __fastcall SetStrings(Classes::TStrings* List);
};

unit NewMemIniFile;    interface    uses SysUtils, Classes, IniFiles;    type    TMemIniFile = class(IniFiles.TMemIniFile)    public    procedure SetStrings(List: TStrings); override;    end;    implementation    procedure TMemIniFile.SetStrings(List: TStrings);
var
  I, J: Integer;
  S: string;
  Strings: TStrings;
begin
  Clear;
  Strings := nil;
  for I := 0 to List.Count - 1 do
  begin
    S := Trim(List[I]);
    if (S <> '') and (S[1] <> ';') then
      if (S[1] = '[') and (S[Length(S)] = ']') then
      begin
        Delete(S, 1, 1);
        SetLength(S, Length(S)-1);
        Strings := AddSection(Trim(S));
      end
      else
        if Strings <> nil then
        begin
          J := Pos('=', S);
          if J > 0 then // remove spaces before and after '='
            Strings.Add(Trim(Copy(S, 1, J-1))   '='   Trim(Copy(S, J 1, MaxInt)) )
          else
            Strings.Add(S);
        end;
  end;
end;    end.

引言: 1.實在很抱歉, 沒注意到SetStrings為Static, 如此就無法Override了. 我原來是用此方法來擴充TDBGrid,TQuery等之功能,並未測試此Cass, 只是理所當然的寫下去了. 2. 另寫一分也是方法, 只是已完成之程式ClassName均須修改了

unit MyMemo;    interface    uses Messages, Windows, SysUtils, Classes, Controls, Forms, Menus, Graphics, StdCtrls;    type
  TMemo = class (StdCtrls.TMemo)      protected
    FItemIndex : Integer;
    procedure FSetItemIndex(Value: Integer);      public
    property ItemIndex: Integer read FItemIndex write FSetItemIndex;
  end;    implementation    procedure TMyMemo.FSetItemIndex(Value: Integer);
begin
    FItemIndex := Value;
    Self.SelStart :=SendMessage(Self.Handle, EM_LINEINDEX, FItemIndex, 0);
    Self.SelLength :=Length(Self.Lines.Strings[FItemIndex]);
end;    end.

class PASCALIMPLEMENTATION TMemo : public Stdctrls::TMemo
{
        typedef Stdctrls::TMemo inherited;    protected:
  int FItemIndex;
        void __fastcall FSetItemIndex(int Value);    __published:
        __property int ItemIndex={read=FItemIndex,write=FSetItemIndex};
};

class TForm1 : public TForm
{
__published:        // IDE-managed Components
  TMemo *Memo1;
}