Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2007, 11:57   #1
zzzzz
Пользователь
 
Регистрация: 25.05.2007
Сообщений: 69
Вопрос Записи

Как можно удалить запись из файла? Добавлять, добавляются по-одному, а если удалять, то только весь фаил.Записи у меня в виде фамилий, которые выводятся в StringGrid. Если просто обнулять, то в StringGrid остаётся пустая ячейка, т.к. я этому значению := ' '. А у меня весь массив расчитан под кол-во Фамилий (если добавляется Фамилия, то +одна строка в StringGrid, а наоборот никак!!!! ). И ещё один вопросик, как вывести на распечатку StringGrid с моей таблицей????
zzzzz вне форума Ответить с цитированием
Старый 25.05.2007, 16:26   #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);
НЕ_АЙС вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Записи 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