super_ini

[leon2009sp]

Здравствуйте! Можно примерчик через функцию
ни, через процедуру, ни через форму, а через функцию

function IniRead(IniFile:TINIFile; line1,line2,line3:string):string; stdcall;
begin
IniFile.ReadString('key_1', 'section1', line1);
IniFile.ReadString('key_1', 'section2', line2);
IniFile.ReadString('key_1', 'section2', line3);
end;

function IniRead(IniFile:TINIFile; line1,line2,line3:string):string; stdcall; external 'masyanya.dll' index 4;

procedure TForm1.IniFileRead;
var text1,text2,text3:string;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'key.ini');
IniRead(IniFile,text1,text2,text3);
form1.Memo5.Lines.Add(text1);
IniFile.Free;
end;

[evg_m]

чтобы получить НЕСКОЛЬКО значений сразу используйте record

type TiniRec =record line1, line2, line3: string; end;

function ReadIni(ini: TIniFile; rec: TiniRec): TiniRec;
begin
  result.line1:=ini.readString(rec.line1);
...
  result.line3:=iniReadString(rec.line3);
end;

[Arigato]

leon2009sp, и что куда функция должна возвращать? У вас читается 3 параметра.

[leon2009sp]

дак, я примерчик и попросил:

type TiniRec =record x1, x2, x3: string; end;

function IniRead(IniFile: TIniFile; rec: TiniRec): TiniRec; stdcall;
begin
result.x1:=IniFile.ReadString('key_1', 'section1', 'faild_0');
result.x2:=IniFile.ReadString('key_1', 'section2', 'faild_1');
result.x3:=IniFile.ReadString('key_1', 'section3', 'faild_2');
end;

function IniRead(IniFile:TINIFile):string; stdcall; external 'list.dll' index 4;

procedure TForm1.IniFileRead;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'key.ini');
IniRead(IniFile,x1);
form1.Memo5.Lines.Text:=IniRead(x1);
IniFile.Free;
end;

[macomics]

Тогда прототипы функции должны совпадать в импорте и объявлении

type TiniRec =record x1, x2, x3: string; end;

function IniRead(IniFile: TIniFile; rec: TiniRec): String; stdcall;
begin
   Result := IniFile.ReadString('key_1', rec.x1, 'faild_0') +
             IniFile.ReadString('key_1', rec.x2, 'faild_1') +
             IniFile.ReadString('key_1', rec.x3, 'faild_2');
end;

type TiniRec =record x1, x2, x3: string; end;

function IniRead(IniFile:TINIFile; rec: TiniRec): String; stdcall; external 'list.dll' index 4;

procedure TForm1.IniFileRead;
var
   IniFile: TIniFile;
   strs: TIniRec
begin
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'key.ini');
   strs.x1 := 'section1';
   strs.x2 := 'section2';
   strs.x3 := 'section3';
   form1.Memo5.Lines.Text:=IniRead(IniFile, strs);
   IniFile.Free;
end;

[leon2009sp]

var
   IniFile: TIniFile;
   strs: TIniRec;
begin
 IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'key.ini');
   strs.x1 := 'section1';
   strs.x2 := 'section2';
   strs.x3 := 'section3';
  // form1.Memo5.Lines.Text:=IniRead(IniFile, strs);
  form1.Edit1.Text:=IniRead(IniFile, strs.x1);
  form1.Edit2.Text:=strs.x2;
  form1.Edit3.Text:=strs.x3;
  IniFile.Free;

= каша все вместе смешалось

[macomics]

Правильно. т.к. у вас не задается для функции ничего разумного. Но на выходе вы получаете строку (см. #1 пост). Если вам надо получать структуру обратно, тогда ее и возвращайте (см. #2 пост). Это будет вот так

type TiniRec =record x1, x2, x3: string; end;

function IniRead(IniFile: TIniFile; rec: TiniRec): TiniRec; stdcall;
begin
   Result.x1 := IniFile.ReadString('key_1', rec.x1, 'faild_0');
   Result.x2 := IniFile.ReadString('key_1', rec.x2, 'faild_1');
   Result.x3 := IniFile.ReadString('key_1', rec.x3, 'faild_2');
end;

type TiniRec =record x1, x2, x3: string; end;

function IniRead(IniFile:TINIFile; rec: TiniRec): TIniRec; stdcall; external 'list.dll' index 4;

procedure TForm1.IniFileRead;
var
   IniFile: TIniFile;
   strs: TIniRec
begin
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'key.ini');
   strs.x1 := 'section1';
   strs.x2 := 'section2';
   strs.x3 := 'section3';
   with IniRead(IniFile, strs) do begin
      Edit1.Text:=x1;
      Edit2.Text:=x2;
      Edit3.Text:=x3;
   end;
   IniFile.Free;
end;

Или можно возвращать результат в том же параметре

type TiniRec =record x1, x2, x3: string; end;

procedure IniRead(IniFile: TIniFile; var rec: TiniRec); stdcall;
begin
   rec.x1 := IniFile.ReadString('key_1', rec.x1, 'faild_0');
   rec.x2 := IniFile.ReadString('key_1', rec.x2, 'faild_1');
   rec.x3 := IniFile.ReadString('key_1', rec.x3, 'faild_2');
end;

type TiniRec =record x1, x2, x3: string; end;

procedure IniRead(IniFile:TINIFile; var rec: TiniRec); stdcall; external 'list.dll' index 4;

procedure TForm1.IniFileRead;
var
   IniFile: TIniFile;
   strs: TIniRec
begin
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'key.ini');
   strs.x1 := 'section1';
   strs.x2 := 'section2';
   strs.x3 := 'section3';
   IniRead(IniFile, strs);
   with strs do begin
      Edit1.Text:=x1;
      Edit2.Text:=x2;
      Edit3.Text:=x3;
   end;
   IniFile.Free;
end;

[leon2009sp]

понял ошибку! Спасибо! через процедуру я сделал получилось! через функцию не получалось, то ошибку $0000005 то еще что нить выдавала. Спасибо!

[leon2009sp]

А! что делать если у меня section1-500шт FOR X:=X+'1' ругается ^)
я остановился на 100м

[macomics]

А нельзя так

for x := 1 to 500 do begin
  sec := 'section' + inttostr(x);
...