Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 16.11.2013, 10:38
aavov aavov вне форума
Прохожий
 
Регистрация: 15.11.2013
Сообщения: 1
Версия Delphi: Delphi7
Репутация: 10
По умолчанию StringList-где ошибки? спасибо

Код:
procedure TForm1.Button1Click(Table:TStringGrid);
 var
  List:TStringList;
  i,j,rw,cl:integer;
  doc1:TextFile;
    begin
 List:=TStringList.Create;
rw:=StringGrid1.RowCount;
 cl:=StringGrid1.ColCount;

    with Table do
  for i:=0 to rw-1 do
  for j:=0 to  cl-1 do
   List.Add(StringGrid1.Cells[j,i]);
List.SaveToFile('doc1.txt');
CloseFile(doc1);
end;
end.
Админ: Пользуемся тегами для оформлении кода!

Последний раз редактировалось Admin, 16.11.2013 в 12:09.
Ответить с цитированием
  #2  
Старый 16.11.2013, 11:35
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от aavov
procedure TForm1.Button1Click(Table:TStringGrid);
var
List:TStringList;
i,j,rw,cl:integer;
doc1:TextFile;
begin
List:=TStringList.Create;
rw:=StringGrid1.RowCount;
cl:=StringGrid1.ColCount;

with Table do
for i:=0 to rw-1 do
for j:=0 to cl-1 do
List.Add(StringGrid1.Cells[j,i]);
List.SaveToFile('doc1.txt');
CloseFile(doc1);
end;
end.
Зачем закрывать через "CloseFile(doc1)" если переменная doc1 нигде не открывалась?
Зачем вообще здесь переменная "doc1:TextFile" если она нигде не используется (не считая непонятной попытки её закрыть)?
Зачем здесь "with Table do" если внутри всё равно используется напрямую "StringGrid1"?
Если Button1Click это обработчик щелчка кнопки почему у него в параметрах "Table:TStringGrid" вместо "Sender: TObject"?

UPD
Ещё не освобождается объект "List" - будут утечки памяти.

Последний раз редактировалось poli-smen, 16.11.2013 в 11:38.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:08.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter