как сохранить содержимое memo1 так чтобы строка начиналась с определённых символов....

[JTG]

Блин, а подумать, в справку заглянуть, основы делфи почитать???

Прочесть всю секцию целиком
MyIni.ReadSection('ИМЯ_СЕКЦИИ', memo1.lines);

Прочитать только параметры с именем "LineX"

var s:string;
...
i:=1;

Repeat
s:=Ini.ReadString(‘СЕКЦИЯ’,’Line’+inttostr(i),'shit'));
if s<>'shit' then memo1.lines.add(s) else break;
inc(i)
Until false;

[aesoem]

ничего я непонял... Из этого кода я так понял мне нужено вот это действие:
var k:integer;
begin
i.ReadSection('Memo',ListBox1.Items );
//********* FOR ******************
for k :=0 to ListBox1.Items.Count-1 do
begin
ListBox1.Items[k]:=i.ReadString('Memo','Line '+inttostr(k),'');
end;
//******* END FOR ****************{}
end;

но чегот я несмог с ним нечиго сделать

[JTG]

Да сделай вот так и не мучайся

var s:string;   //строка для временного хранения данных
...   
i:=1;   //счётчик
  
Repeat   //цикл (вечный =)

s:=Ini.ReadString(‘СЕКЦИЯ’,’Line’+inttostr(i),'shit'));   
//читать секцию с именем "СЕКЦИЯ", параметр LineХ, если  
//прочитать не удалось (параметра нет) вернуть слово "shit"

if s<>'shit' then memo1.lines.add(s) else break;   
//если параметр прочитался - добавить в мемо, 
//если нет (ReadString возвратила слово "shit") выйти из цикла

inc(i)   
//если не вышли из цикла - увеличить значение счётчика,
//line+"1","2","3"...

Until false;

[Stilet]

Ты пример мой читал внимательно?

[aesoem]

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

Да сделай вот так и не мучайся

var s:string;   //строка для временного хранения данных
...   
i:=1;   //счётчик
  
Repeat   //цикл (вечный =)

s:=Ini.ReadString(‘СЕКЦИЯ’,’Line’+inttostr(i),'shit'));   
//читать секцию с именем "СЕКЦИЯ", параметр LineХ, если  
//прочитать не удалось (параметра нет) вернуть слово "shit"

if s<>'shit' then memo1.lines.add(s) else break;   
//если параметр прочитался - добавить в мемо, 
//если нет (ReadString возвратила слово "shit") выйти из цикла

inc(i)   
//если не вышли из цикла - увеличить значение счётчика,
//line+"1","2","3"...

Until false;

теперь программа вообще в ошибку вылетает!




Мне нужно прочитать секцию "Support Information" в ini файле c:\windows\system32\oeminfo.ini и всё что там есть (в этой секции) присвоить memo1.lines

Составьте полностью мне код для события TForm1.FormCreate
а я тогда сам разберусь, хорошо?

[JTG]

[8 слов мата goes here]

procedure TForm1.Create(Sender: TObject);
var
  ini: TIniFile;
begin
  ini := TIniFile.Create('C:\Windows\System32\oeminfo.ini');
  try
    ini.ReadSection('Support Information', memo1.lines);
  //или  ini.ReadSectionValues('Support Information', memo1.lines);
  finally 
    ini.Free;  
  end;
end;

работать ДОЛЖНО.
За время проведённое на форуме можно было уже 50 раз перечитать хелп, там же есть примеры и на делфи и на си..

[aesoem]

Работает! Впрочем так работают и все предидущие примеры

мой код:
var
ini:Tinifile;
begin
ini:=Tinifile.Create('C:\WINDOWS\sy stem32\oeminfo.ini');
Edit1.Text:=ini.ReadString('General ','Manufacturer',Edit1.Text);
Edit2.Text:=ini.readString('General ','Model',Edit2.Text);
ini.ReadSectionValues('Support Information', memo1.lines);
ini.Free;
try
image1.Picture.LoadFromFile('C:\WIN DOWS\system32\OEMLOGO.BMP');
Statusbar1.Panels[0].Text:='Логотип и текстовая информация уже имеется';
except
Statusbar1.Panels[0].Text:='Логотип не найден';
end;
end;


вот ответ:

[aesoem]

так что решения нет?