Строки Delphi. Удалить 6 первых строк из файла

[Tony Hudson]

Добрый вечер.Подскажите пожалуйста, как удалить 6 первых строк из файла, если число строк больше 6 и кратно 3?

[Alex11223]

Прочитать все строки и перезаписать файл выкинув первые 6 строк.

[vlad1389]

Интересно, при чём тут кратность?

var
List: TStringList;
i:Integer;
begin
List:=TStringList.Create;
List.LoadFromFile("путь");
for i := 0 to 5 do List.Delete(List[0]);
List.SaveToFile("путь");
List.Free;
end;

[Tony Hudson]

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

Интересно, при чём тут кратность?

var
List: TStringList;
i:Integer;
begin
List:=TStringList.Create;
List.LoadFromFile("путь");
for i := 0 to 5 do List.Delete(List[0]);
List.SaveToFile("путь");
List.Free;
end;

Задание такое, спасибое большое за код

[vlad1389]

Tony Hudson то есть вообще по фиг, что задание содержит логическую ошибку, и на это можно указать преподавателю, и получить дополнительные баллы? Разучилась нынче молодёжь головой думать...

[min@y™]

procedure DelFirstLines(ALines: TStrings; const ACount: int32);
var
  idx: int32;
begin
  idx:= 0;
  while (ALines.Count <> 0) and (idx < ACount) do
    begin
      ALines.Delete(0);
      inc(idx);
    end;
end;

function FuckIt(const ASourceFileName, ADestFileName: string): boolean;
var
  List: TStringList;
  i: Integer;
begin
  Result:= false;
  List:= TStringList.Create();
  try
    try
      List.LoadFromFile(ASourceFileName);
      
      // удалить 6 первых строк из файла, если число строк больше 6 и кратно 3
      if (List.Count < 7) or (List.Count mod 3 <> 0)
        then Exit;
        
      DelFirstLines(List, 6);
      List.SaveToFile(ADestFileName);
      Result:= true;
    except on E: Exception do
      Application.MessageBox(PChar(E.Message), 'Error', MB_OK + MB_ICONSTOP);
    end;
  finally
    List.Free();
  end;
end;

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!

[Serge_Bliznykov]

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

[B]что задание содержит логическую ошибку

и какую же ошибку? Если Вы про кратность трём, то это не задание содержит ошибку, а Вы не смогли его правильно понять.
Вот, посмотри на решение от min@y™

А то, что студенты не пытаются вникнуть, это да, есть такая беда.

[vlad1389]

Ясно...

[Tony Hudson]

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

Интересно, при чём тут кратность?

var
List: TStringList;
i:Integer;
begin
List:=TStringList.Create;
List.LoadFromFile("путь");
for i := 0 to 5 do List.Delete(List[0]);
List.SaveToFile("путь");
List.Free;
end;

зачем List.Delete(List[0]), нужно ведь List.Delete(i), не так ли?

[Tony Hudson]

Вот разобрался, на мой взгляд, можно не создавать лишние функции.
Отлаженный код:

procedure TMyThread2.Work;
var
List: TStringList;
i:integer;
begin
List:=TStringList.Create;
List.LoadFromFile('c:\1.txt');
if (list.Count>6) and ((list.Count mod 3)=0) then
begin
for i := 0 to 5 do List.Delete(i);
List.SaveToFile('c:\1.txt');
List.Free;
end;

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) для вставки кода на форум.