![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 25.05.2007
Сообщений: 69
|
![]()
Как можно удалить запись из файла? Добавлять, добавляются по-одному, а если удалять, то только весь фаил.Записи у меня в виде фамилий, которые выводятся в StringGrid. Если просто обнулять, то в StringGrid остаётся пустая ячейка, т.к. я этому значению := ' '. А у меня весь массив расчитан под кол-во Фамилий (если добавляется Фамилия, то +одна строка в StringGrid, а наоборот никак!!!! ). И ещё один вопросик, как вывести на распечатку StringGrid с моей таблицей????
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 18.04.2007
Сообщений: 135
|
![]()
Пропиши в коде вот это:
type TStringGridHack = class(TStringGrid) protected procedure DeleteRow(ARow: Longint); reintroduce; end; ............................... ................................... .. ................................. procedure TStringGridHack.DeleteRow(ARow: Longint); var GemRow: Integer; begin GemRow := Row; if RowCount > FixedRows + 1 then inherited DeleteRow(ARow) else Rows[ARow].Clear; if GemRow < RowCount then Row := GemRow; end; И всё. Пример использования: TStringGridHack(StringGrid1).Delete Row(2); |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Записи | Rio309 | Помощь студентам | 1 | 15.03.2008 22:23 |
Записи | Xeon332 | Помощь студентам | 5 | 12.01.2008 23:17 |
Записи | RECREATOR | Помощь студентам | 3 | 25.12.2007 10:58 |
записи | 11111 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 29.11.2007 15:28 |