[Кодер]

Структура текстового файла:

data1
time1
note1
stat1
...
dataN
timeN
noteN
statN

Требуется найти допустим data3 и удалить эту строку из файла..
Помогите плз

[lmikle]

Я бы пошел другим путем.
Во первых, я бы не ориентировался на текстовый файл. Что стоит сделать запись типа

Код:

type
  PMySheduler = ^TMySheduler;
  TMySheduler = record
    FDate : TDateTime;
    FType : String;
    FMessage : String;
  end;

и далее ее просто писать/читать с помощью потоков, а хранить в TList. При этом у тебя будет 1 запись на каждое задание.

Но если уж ты пошел по пути текстового файла, то тогда у тебя опять же несколько вариантов.

Вычислять ID'ы нужных записей, исходя из индекса записи в визуальном списке (благо, у тебя их в StringList'е всегода по 4), либо при добавлении Item'а в ListView в его проперть Data писать ID первого элемента из StringList'а, а далее удалить 4 записи, начиная с этого ID'а.

Первый вариант:

Код:

procedure TForm1.DeleteRecord(AVisualID : Integer); // принимаем индекс записи в TListView
var
  I, ASLID : Integer;
begin
  ASLID := AVisualID * 4;  // у нас по 4 строки в StringList на каждую запись

  // Теперь проверим, что у нас достаточно записей на удаление.
  If StringList.Count < ASLID + 3 Then
    Raise Exception.Create('Записей-то не хватает!');

  // Ну, типа, все ОК - удаляем...
  For I := 1 To 4 Do // удаляем 4 записи
    StringList.Delete(ASLID);

  // итем в ListView грохнуть придется самостоятельно
end;

Здесь, StringList - это тот список, где у тебя храняться данные.

Второй вариант:
При добавлении записи:

Код:

var
  Item : TListItem;
...
  Item := ListView1.Items.Add;
  Item.Data := Pointer(I); // Если помню точно, то там в цикле заполнение, где I - номер текущей строки в StringList, увеличиваемый на 4 при каждой итерации

При удалении:

Код:

procedure TForm1.DeleteListViewItem(AItem : TListItem);
var
  I, ASLID : Integer;
begin
  ASLID := Integer(AItem.Data); // получили ID первой стоки в StringList
  
  // Теперь проверим, что у нас достаточно записей на удаление.
  If StringList.Count < ASLID + 3 Then
    Raise Exception.Create('Записей-то не хватает!');

  // Ну, типа, все ОК - удаляем...
  For I := 1 To 4 Do // удаляем 4 записи
    StringList.Delete(ASLID);

  AItem.Delete; // Удаляем сам итем.
end;

Вызов будет выглядеть примерно так:
DeleteListViewItem(ListView1.Selected);

[Winny]

to Imikle
Мне кажеться, Вы его неправильно поняли. Ему нужно найти строку "Data3" в текстовом файле и удалить её. Вот и всё. Это делается вот так:

Код:

var SomeFile:TStringList;
i:Integer;
begin
SomeFile:=TStringList.Create;
SomeFile.LoadFromFile('SomeFile');
for i:=0 to SomeFile.Items.Count-1 do begin
if SomeFile.Items.Strings[i]='Data3' then
SomeFile.Items.Delete(i);
end;
SomeFile.Free;

ЗЫ. Писал по памяти.

[lmikle]

Нет, я его понял правильно

Это не первый его вопрос по этой задаче.
Уже проще написать ему этот чертов курсовик, чем отвечать на каждый вопрос

[Кодер]

Winny меня понял правильно, а у lmikle я вообще запутался в коде.

[lmikle]

Ну извини, чё там в трех соснах путаться-то?
Я писал из предположения, что у тебя юзер удаляет.
Если просто из файла удалить, то да, примерно так, как написал Winny.
только если я правильно помню задачу, то все-равно тебе надо удалаять 4 строки, иначе оставшиеся 3 повиснут мертвым грузом.

только у Winny есть одна ошибочка. Цикл там должен быть обратный, от Count-1 до 0, иначе в конце цикла ошибку получишь - Out of bounds.

[Winny]

Всё правильно вроде-бы. Если было бы написано просто "Count", то вылезла бы ошибка, а если я написал "Count-1", и ошибки не будет. И мне кажеться обратным циклом (downto) пользоваться совсем не нужно, но в принципе можно.

[Кодер]

Нефига не работает..попробывал..

[lmikle]

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

Всё правильно вроде-бы. Если было бы написано просто "Count", то вылезла бы ошибка, а если я написал "Count-1", и ошибки не будет. И мне кажеться обратным циклом (downto) пользоваться совсем не нужно, но в принципе можно.

Будет ошибка, т.к. For - цикл с предварительно вычисляемым условием.
т.е. он сразу вычисляет конечное значение, а ты в цикле убиваешь один элемент и теперь их кол-во Count-2. Вот тут то и кроется ошибка и надо пользоваться downto.

[lmikle]

Сообщение от Неподарок

Нефига не работает..попробывал..

Мужик, ну ты хоть условие на свое поправь, да. Естественно, у тебя в файле записано не 'data3', а какая-то конкретная дата...

[san-46]

Ну, мужики, вы даете.
Кто же в цикле "for" удаляет. Тут хоть 'to', хоть 'downto', результат будет один: либо "Rang check error", либо "Access violation...".

Код:

var 
  SomeFile:TStringList;
  i:Integer;
begin
  SomeFile:=TStringList.Create;
  SomeFile.LoadFromFile('SomeFile');
  I := SomeFile.IndexOf('Data3')
  if I >= 0 then
    SomeFile.Items.Delete(I);
  SomeFile.SaveToFile('SomeFile');
  SomeFile.Free;  
end;

И в файл обратно не надо забывать записывать модифицированные данные.