Утечка памяти

[Алексей0001]

Подскажите где утечка
1.PNG

procedure TForm2.Button_OpenClick(Sender: TObject);
var
  pl, tl: TStringList;
  i: Integer;
  kname: string;
begin
  pl := TStringList.Create;
  if not OpenDialog1.Execute then
    exit;
  pl.LoadFromFile(OpenDialog1.FileName);
  // подготовил StringGrid1
  StringGrid1.FixedCols := 0;
  StringGrid1.FixedRows := 0;
  StringGrid1.RowCount := pl.Count;
  pl.Sort;
  // теперь разбить по строкам и столбцам разделенных символом ^
  tl := TStringList.Create;
  tl.Delimiter := #9;
  try
    for i := 0 to pl.Count - 1 do
    begin
      tl.Clear;
      tl.DelimitedText := pl.Strings[i];
      if StringGrid1.ColCount < tl.Count then
        StringGrid1.ColCount := tl.Count;
      StringGrid1.Rows[i].Assign(tl);
    end;
  finally
    FreeAndNil(tl);
    FreeAndNil(pl);
  end;

end;

procedure TForm2.Button_ProcessClick(Sender: TObject);
var
  ListFromFile, ListTemp, list: TStringList;
  i: Integer;
  fname: string;
begin
  ListFromFile := TStringList.Create;
  if not OpenDialog1.Execute then
    exit;
  ListFromFile.LoadFromFile(OpenDialog1.FileName);
  StringGrid1.FixedCols := 0;
  StringGrid1.FixedRows := 0;
  StringGrid1.RowCount := ListFromFile.Count;
  list := ListFromFile;
  fname := ChangeFileExt(OpenDialog1.FileName, '.result');
  // теперь разбить по строкам и столбцам разделенных символом ^
  ListTemp := TStringList.Create;
  ListTemp.Delimiter := #9;
  for i := 0 to ListFromFile.Count - 1 do
  begin
    ListTemp.Clear;
    ListTemp.DelimitedText := ListFromFile.Strings[i];
    if StringGrid1.ColCount < ListTemp.Count then
      StringGrid1.ColCount := ListTemp.Count;
    StringGrid1.Rows[i].Assign(ListTemp);
  end;
  try
    list.Sort;
    if not FileExists(fname) then // если нет файла, имя которого определено переменной fName
      ListFromFile.SaveToFile(fname) // тогда сохраняем в файл с именем fName
    else if (MessageBox(Handle, // иначе открывается диалоговое окно с предложение записть под другим именем
        'Обработанный файл с таким именем уже существует.'#13'Вы хотите сохранить файл под другим именем?', 'Запрос.', mb_YesNo or mb_IconQuestion) = idNo) or (not SaveDialog1.Execute) then
    begin
      ShowMessage('Операция отменена. Файл не сохранен!'); // в случаем не согласия сохранить файл с другим именем выводим сообщение на экран
      exit; // прерываем выполнение
    end
    else
      ListFromFile.SaveToFile(SaveDialog1.FileName);
    // иначе сохраняем файл с новым именем
    ShowMessage('Сохранение выполнено успешно!');
  finally
    FreeAndNil(ListFromFile);
    FreeAndNil(ListTemp);
  end;
end;

end.

[Алексей0001]

StringList-ы везде вроде уничтожаются

[Filka]

Объекты нужно создавать после

if not OpenDialog1.Execute then
  exit;

, а не до.

[Heneken87]

удалите

[Аватар]

Тут 2 вопорса
1: Какой у вас объем файла
2: В каком месте получаете OutOf Memory?

Это при чем? Filka уже написал где утечка:

pl := TStringList.Create;
  if not OpenDialog1.Execute then
    exit; //здесь она

[Black Fregat]

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

и свойство Execute класса TOpenDialog вернет True

А если вернёт False, то будет утечка

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

В каком месте получаете OutOf Memory?

Он же даже скрин привёл. Нет Out Of Memory. Детектится Memory Leak.

[Heneken87]

походу остапа понесло)
try
pl:= TStringList.Create;
if not OpenDialog1.Execute then
exit;
finally
FreeAndNil(pl);
end
Сории я сам затормозил.читал тему до этого о нехватке..да походу темы перпутал)))

[Heneken87]

Но все так вот это :

pl := TStringList.Create;
if not OpenDialog1.Execute then
exit;
pl.LoadFromFile(OpenDialog1.FileNam e);
// подготовил StringGrid1
StringGrid1.FixedCols := 0;
StringGrid1.FixedRows := 0;
StringGrid1.RowCount := pl.Count;
pl.Sort;
// теперь разбить по строкам и столбцам разделенных символом ^
tl := TStringList.Create;
tl.Delimiter := #9;
try
for i := 0 to pl.Count - 1 do
begin
tl.Clear;
tl.DelimitedText := pl.Strings[i];
if StringGrid1.ColCount < tl.Count then
StringGrid1.ColCount := tl.Count;
StringGrid1.Rows[i].Assign(tl);
end;
finally
FreeAndNil(tl);
FreeAndNil(pl);
end;

Ппавильнее всетаки вот так:

try
pl := TStringList.Create;
if not OpenDialog1.Execute then
exit;
pl.LoadFromFile(OpenDialog1.FileNam e);
// подготовил StringGrid1
StringGrid1.FixedCols := 0;
StringGrid1.FixedRows := 0;
StringGrid1.RowCount := pl.Count;
pl.Sort; // теперь разбить по строкам и столбцам разделенных символом ^
while pl.Count > 0 do
begin
try
tl := TStringList.Create;
tl.Delimiter := #9;
tl.DelimitedText := pl.Strings[0];
if StringGrid1.ColCount < tl.Count then
StringGrid1.ColCount := tl.Count;
StringGrid1.Rows[i].Assign(tl);
po.Delete(0);
finally
FreeAndNil(tl);
end;
end;
finally
FreeAndNil(pl);
end;

P/S Аллоо! Где двойной пробел?

[Аватар]

Дык для кода #, а не цитирование. Пора бы и запомнить ))