Проблемы с PChar (Считывание из ini файла)

[Altera]

Всем привет.
Вот у меня такая проблема
Есть структура

tRec = record
    s1, s2, s3, s4: pChar;
  end;

есть
процедура считывания и заполнения указателей в list: tList

procedure TForm1.FormCreate(Sender: TObject);
var
iniFile: tMemIniFile;
pr: ^tRec;
c: integer;
begin
   list := tList.Create;
   iniFile := tMemIniFile.Create(extractFilePath(application.ExeName)+'file.ini');
   for c := 0 to 12 do
   begin
      new(pr);

      pr.s1 := pChar(iniFile.ReadString('000', '1', '(S 1---)'));
      pr.s2 := pChar(iniFile.ReadString('000', '2', '(S 2---)'));
      pr.s3 := pChar(iniFile.ReadString('000', '3', '(S 3---)'));
      pr.s4 := pChar(iniFile.ReadString('000', '4', '(S 4---)'));

      list.Add(pr);
   end;
   iniFIle.Free;
end;

и ещё есть процедура отображения

procedure TForm1.Button1Click(Sender: TObject);
var
c: integer;
pr: ^TRec;
begin
   listBox1.Clear;
   for c := 0 to List.Count - 1 do
   begin
      pr := list.Items[c];
      listBox1.Items.Add(intToStr(c));
      listBox1.Items.Add('A>'+pr.s1);
      listBox1.Items.Add('B>'+pr.s2);
      listBox1.Items.Add('C>'+pr.s3);
      listBox1.Items.Add('D>'+pr.s4);
   end;
end;

Проблема в том, что происходят проблемы. Те кто в курсе поймут о чём я.
Причём если в tRec все переменные типа string То всё ОК.

В аттаче полный проэкт. (В Delphi 7 полная неразбериха)

[Д'якон]

pChar - имеет размер 4 байта, какие проблемы?

[BOBAH13]

pr.s1 := pChar(iniFile.ReadString('000', '1', '(S 1---)'));

Если рассуждать логически и рационально, то можно выделить несколько этапов:
1. Формирование строк (адреса в памяти) для '000', '1', '(S 1---)'
2. Выделение в памяти "типа" String (локально) как результата для iniFile.ReadString
3. Вызов iniFile.ReadString
4. Получения адреса первого "символа" результата вызова iniFile.ReadString который "записался" ранее зарезервированное место п. 2
5. pr.s1 хранит адрес пункта 4
6. list.Add(pr); - сохранение адреса на адрес на адрес так сказать. не важно.
7. ret - он же end; данной функции, освобождение локально выделенной памяти пункт 2.
8. Теперь по сути, место в памяти куда указывает pr.s1 может модифицироватся как угодно системой, либо резервироватся самой программой, т.к. оно было освобождено.

Причём если в tRec все переменные типа string То всё ОК.

Думаю ясно почему так все ок.

Рещение
Выделять память под PCHAR надо, а не просто тыкать куда попало.

Дополнение
Если

pr: ^TRec;

то помоему это плохой тон потом писать

pr.s1 :=

тогда уже (pr^).s1
p.s. извените может немного напутал куда ставить оператор разименования, давно дельфи не использую

[Altera]

Ладно, попробую. Дааа, работа с указателями, это головная боль. А при pChar счетчик ссылок есть?
-----------
Не работает. Вернее результат другой, но все равно не то.

      pr^.s1 := pChar(iniFile.ReadString('000', '1', '(S 1---)'));
      pr^.s2 := pChar(iniFile.ReadString('000', '2', '(S 2---)'));
      pr^.s3 := pChar(iniFile.ReadString('000', '3', '(S 3---)'));
      pr^.s4 := pChar(iniFile.ReadString('000', '4', '(S 4---)'));

[BOBAH13]

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

Ладно, попробую. Дааа, работа с указателями, это головная боль. А при pChar счетчик ссылок есть?
-----------
Не работает. Вернее результат другой, но все равно не то.

      pr^.s1 := pChar(iniFile.ReadString('000', '1', '(S 1---)'));
      pr^.s2 := pChar(iniFile.ReadString('000', '2', '(S 2---)'));
      pr^.s3 := pChar(iniFile.ReadString('000', '3', '(S 3---)'));
      pr^.s4 := pChar(iniFile.ReadString('000', '4', '(S 4---)'));

Я в шоке лично, других слов не могу щас сказать. А то что я распинался по пунктам расписал, Вы решили опустить и вообще не читать ?

А при pChar счетчик ссылок есть?

Что имеется ввиду ? Я не понял. Инкремент/Дикремент чтоли ?

[Пепел Феникса]

за PChar вы следите сами, счетчика нет.(вы же память выделяете, вы же должны освобождать)

[Dzmitry Loktseu]

А нафига весь этот гемор, можно сделать проще. Как-нибудь так, например:

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    lb_Items: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FItems: TObjectList;
  public
    { Public declarations }
  end;

  TItem = class(TObject)

    type
      TParams = record
        Param1, Param2, Param3, Param4: PChar;
      end;

  private
    FParams: TParams;
  public
    constructor Create(AParam1, AParam2, AParam3, AParam4: PChar);
    {  }
    property Params: TParams read FParams write FParams;
  end;

var
  Form4: TForm4;

implementation

uses IniFiles;

{$R *.dfm}

{ TItem }

constructor TItem.Create(AParam1, AParam2, AParam3, AParam4: PChar);
begin
  with FParams do
  begin
    Param1 := AParam1;
    Param2 := AParam2;
    Param3 := AParam3;
    Param4 := AParam4;
  end;
end;

{ TForm4 }

procedure TForm4.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  lb_Items.Clear;
  for I := 0 to FItems.Count - 1 do
    with TItem(FItems[I]).Params do
      lb_Items.Items.Add(Format('[%d]: Param1: %s; Param2: %s; Param3: %s; Param4: %s',
        [I, Param1, Param2, Param3, Param4]));
end;

procedure TForm4.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  FItems := TObjectList.Create;
  with TMemIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')) do
    try
      FItems.Add(TItem.Create(PChar(ReadString('Params', 'Param1', '')),
        PChar(ReadString('Params', 'Param2', '')),
        PChar(ReadString('Params', 'Param3', '')),
        PChar(ReadString('Params', 'Param4', ''))));
    finally
      Free;
    end;
end;

procedure TForm4.FormDestroy(Sender: TObject);
begin
  FItems.Free;
end;

end.

[Altera]

Ничего не легче.
Реализовали так

function strToPChar(const S: string): PChar;
var
ASize: Integer;
begin
  ASize := (Length(S) + 1) * SizeOf(Char);
  getMem(result, ASize);
  FillChar(result^, aSize, 0);
  move(PChar(S)^, result^, Length(S) * SizeOf(Char));
end;

[mihali4]

А размер и состав экзешников не сравнивали?
Компилятор все эти "извраты" должен приводить к одному и тому же виду...

[Altera]

2mihali4, это вы типа над нами глумитесь?

Компилятор все эти "извраты" должен приводить к одному и тому же виду...

Возможно что так и есть, а может и нет... Во всяком случае меня это мало волнует. несколькими байтами больше или меньше. Главное что бы работало корректно.