|
#1
|
|||
|
|||
Счётчик для ini
Здравствуйте !
Подскажите пожалуйста как сделать Код:
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 и самое последнее . |
#2
|
||||
|
||||
Код:
if Trim(XMLItem.Name)='a' then begin Memo2.Lines.Add(XMLItem.Text); ini.WriteString(IntToStr(j),'Day',XMLItem.Text); j:=j+1; end; Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
Этот пользователь сказал Спасибо Karsh за это полезное сообщение: | ||
Gudzik11 (14.04.2012)
|
#3
|
|||
|
|||
А не подскажешь как сделать ?
Если есть Memo в нём записано 30 строк мне нужно первые 7 строк записать в ini [1] следующие 7 строк в ini [2] и тд. |
#4
|
||||
|
||||
Цитата:
Код:
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 работать. XMLItem.Text - это и есть те самые семь строк? Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра. |
Этот пользователь сказал Спасибо Karsh за это полезное сообщение: | ||
Gudzik11 (14.04.2012)
|
#5
|
|||
|
|||
Тут не xml а html. Использую ECXMLParser, ещё не знаю как он толком работает .
|
#6
|
|||
|
|||
Спасибо! То что нужно
|
#7
|
||||
|
||||
А почему у меня при записи в 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. |
#8
|
|||
|
|||
Делал так всё заработало.
Код:
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; |
Этот пользователь сказал Спасибо Gudzik11 за это полезное сообщение: | ||
R-18Rus (16.04.2012)
|