[iluxa1810]

Код:

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
Seek(NoteFile, pos);
Truncate(NoteFile);
Button2.Enabled:=false;
if pos<>0 then dec(pos)
else
begin
Button5.Enabled:=false;
ClearDate;
end;
if pos>=0 then
begin
for i:=pos+1 to FileSize(NoteFile)-1 Do
begin
Seek(NoteFile,i);
Read(NoteFile, NoteData);
Seek(NoteFile, i-1);
Write(NoteFile, NoteData);
end;
Seek(NoteFile, FileSize(NoteFile) -1);
Truncate(NoteFile);
end;
Seek(NoteFile, pos);
Read(NoteFile, NoteData); ShowRecord;
if pos=-1 then
begin
Button1.Enabled := false; {Кнопка возвращения назад}
end;
 
end;

Задали перебить программу,а там код глючненный и с ошибками...Пытаюсь методом проб и ошибок его довести до ума,но что-то не получается.Что тут следует дописать и заменить?
P.S А какую позицию принимает pos если файл пуст? Считывание файла начинается с 0 позиции?

[Pyro]

http://www.vihv.org/index.php?e=CodeSmells
лечится или рефакторингом или переписыванием с нуля

[iluxa1810]

А поправить код этот никто тут не может?

[angvelem]

Этот код тяжело "подправить". Он неполный, пиши с нуля.

[iluxa1810]

Могу попробовать...
Ну мне нужны ответы на некоторые вопросы:
Какую pos имеет пустой?
Какой Pos у первой записи в файле?
Для того чтобы написать правильно код мне нужно разобрать:
а)Строка является единственной строкой в файле
б)Строка является последней в файле
в)Стока является началом или серединой файла(Вроде отличий между этими 2 случаем нет на мой згляд...)
Правильно?

[angvelem]

Неужели тяжело справку почитать?

Returns the index value of the first character in a specified substring that occurs in a given string.

Delphi syntax:

function Pos(Substr: string; S: string): Integer;

Description

In Delphi, Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions.

Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero.

Код:

var
  S : string;
begin
  S := '   123.5';
  { Convert spaces to zeros }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;

[icWasya]

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

Могу попробовать...
Ну мне нужны ответы на некоторые вопросы:
Какую pos имеет пустой?
Какой Pos у первой записи в файле?
Для того чтобы написать правильно код мне нужно разобрать:
а)Строка является единственной строкой в файле
б)Строка является последней в файле
в)Стока является началом или серединой файла(Вроде отличий между этими 2 случаем нет на мой згляд...)
Правильно?

Не назначайте переменным имена стандартных функций(pos), тогда не будут появляться ответы типа angvelem.
А по делу
Имеем типизованый файл, тогда
Если FileSize(NoteFile) равно нулю, то файл пустой.
У первой записи позиция равна нулю.
У последней записи позиция равна FileSize(NoteFile)-1.

[iluxa1810]

http://dump.ru/file/5399001
Вот вся программа,с не рабочим удалением

[iluxa1810]

http://s2.ipicture.ru/uploads/20110926/lPO8T5MY.jpg http://s2.ipicture.ru/uploads/20110926/4RUu6W9D.jpg

[iluxa1810]

Помогите,я перепробовал все ,что бы заставить кнопку работать как надо,но ничего не получается.
Мне кажется ,что этот глюк происходит из-за использования Truncate,но кроме него мне кажется ничего использовать нельзя.
Delete вроде только в строковых типах юзается...