[Gudzik11]

Здравствуйте !
Подскажите пожалуйста как сделать

Код:

begin
    j:=1;
    for i := 0 to XMLItem.SubItemCount-1 do   DrawXMLItem(XMLItem.SubItems[i]);
    if Trim(XMLItem.Name)='a' then
    begin
     Memo2.Lines.Add(XMLItem.Text);
     ini.WriteString(IntToStr(j),'Day',XMLItem.Text);
     j:=j+1;
     end;
 
  end;

Чтоб каждое слово которое найдено писалось в новой переменной ini .


В моём коде в Memo выводиться 8 слов а в ini записывается только 1 и самое последнее .

[Karsh]

Код:

if Trim(XMLItem.Name)='a' then
    begin
     Memo2.Lines.Add(XMLItem.Text);
     ini.WriteString(IntToStr(j),'Day',XMLItem.Text);
     j:=j+1;
     end;

Это условие не в цикле, исполняться оно будет только один раз, поэтому инкрементировать j бессмысленно и поэтому запись в ini будет исполняться лишь один раз.

[Gudzik11]

А не подскажешь как сделать ?

Если есть Memo в нём записано 30 строк мне нужно первые 7 строк записать в ini [1] следующие 7 строк в ini [2] и тд.

[Karsh]

Сообщение от Gudzik11

А не подскажешь как сделать ?

Если есть Memo в нём записано 30 строк мне нужно первые 7 строк записать в ini [1] следующие 7 строк в ini [2] и тд.

Если нужно именно через мемо, то примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, x: integer;
begin
  x:= 1;
  i:= 0;
  while i < Memo1.Lines.Count do
  begin
    for j:= 0 to 6 do
    begin
      if i+j >= Memo1.Lines.Count then break;
      ini.WriteString(IntToStr(x), 'Day' + IntToStr(j+1), Memo1.Lines[j+i]);
    end;
    inc(i, j);
    inc(x);
  end;
end;

Но проще делать это без мемо, сразу с xml.
Просто я смутно уже помню, как с xml работать. XMLItem.Text - это и есть те самые семь строк?

[Gudzik11]

Тут не xml а html. Использую ECXMLParser, ещё не знаю как он толком работает .

[Gudzik11]

Спасибо! То что нужно

[R-18Rus]

А почему у меня при записи в ini, начиная со второй строки, выпрыгивает ошибка.
Прогу уже специально пробовал сделать с нуля, а всё равно.
Вот код:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ini:TIniFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ini:=TIniFile.Create(ExtractFilePath(Application.ExeName));
ShowMessage(ExtractFilePath(Application.ExeName));
with ini do
begin
WriteBool('Box','CheckBox1',CheckBox1.Checked);
WriteBool('Box','CheckBox2',CheckBox2.Checked);
WriteBool('Box','CheckBox3',CheckBox3.Checked);
WriteBool('Radio','RadioButton1',RadioButton1.Checked);
WriteBool('Radio','RadioButton2',RadioButton2.Checked);
end;
end;

end.

[Gudzik11]

Делал так всё заработало.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s : string ;
begin
  getdir (0,s);
 ini:=TIniFile.Create(s+'\1.ini');
  ShowMessage(s+'\1.ini');
  with ini do
    begin
    WriteBool('Box','CheckBox1',CheckBox1.Checked);
   WriteBool('Box','CheckBox2',CheckBox2.Checked);
   WriteBool('Box','CheckBox3',CheckBox3.Checked);
   WriteBool('Radio','RadioButton1',RadioButton1.Checked);
   WriteBool('Radio','RadioButton2',RadioButton2.Checked);
  end;
end;