Delphi занесение с буфера в фаил.

[BanzoO]

Сделал Лабу, но препод придрался к редактированию т.е.:
Есть 4 поля "Номер" "Название" "Фамилия" "Площадь" при моём редактирование, можно редактировать только все поля, если хоть одно будет пустое то и занесёт пустым.

А мне надо чтоб пустые поля не заносило.


Мой вариант редактирования. Как его усовершенствовать?

if listbox1.ItemIndex=3 then
begin
n:=strtoint(form1.Edit1.text);
seek(f,n);
with zap do
begin
nom := form1.maskedit1.text;
naz := form1.maskedit2.text;
fam := form1.maskedit3.text;
pl := form1.maskedit4.text;     // проводим считывание информации из полей в буфер обмена(zap выполняет функцию буфера)
end;
write(f,zap); // запись информации из буфера в файл
end;
form1.label7.Caption:=inttostr(filesize(f));
form1.Label9.Caption:=inttostr(filesize(f)+1);// показываем изменение количества записей в базе данных и перемещение указателя на текущую запись.
end;

[VintProg]

if form1.maskedit1.text = '' then

[BanzoO]

хм попробуем, хотя я пробовал

сразу все обьеденить

if 1 and 1 and 1 then

и заменять 1 переменную, но результат тот же.