|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Удаление строк TStringList
Структура текстового файла:
data1 time1 note1 stat1 ... dataN timeN noteN statN Требуется найти допустим data3 и удалить эту строку из файла.. Помогите плз |
#2
|
|||
|
|||
Я бы пошел другим путем.
Во первых, я бы не ориентировался на текстовый файл. Что стоит сделать запись типа Код:
type PMySheduler = ^TMySheduler; TMySheduler = record FDate : TDateTime; FType : String; FMessage : String; end; Но если уж ты пошел по пути текстового файла, то тогда у тебя опять же несколько вариантов. Вычислять 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; Второй вариант: При добавлении записи: Код:
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); |
#3
|
||||
|
||||
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; |
#4
|
|||
|
|||
Нет, я его понял правильно
Это не первый его вопрос по этой задаче. Уже проще написать ему этот чертов курсовик, чем отвечать на каждый вопрос |
#5
|
|||
|
|||
Winny меня понял правильно, а у lmikle я вообще запутался в коде.
|
#6
|
|||
|
|||
Ну извини, чё там в трех соснах путаться-то?
Я писал из предположения, что у тебя юзер удаляет. Если просто из файла удалить, то да, примерно так, как написал Winny. только если я правильно помню задачу, то все-равно тебе надо удалаять 4 строки, иначе оставшиеся 3 повиснут мертвым грузом. только у Winny есть одна ошибочка. Цикл там должен быть обратный, от Count-1 до 0, иначе в конце цикла ошибку получишь - Out of bounds. |
#7
|
||||
|
||||
Всё правильно вроде-бы. Если было бы написано просто "Count", то вылезла бы ошибка, а если я написал "Count-1", и ошибки не будет. И мне кажеться обратным циклом (downto) пользоваться совсем не нужно, но в принципе можно.
Последний раз редактировалось Winny, 22.04.2008 в 23:05. |
#8
|
|||
|
|||
Нефига не работает..попробывал..
|
#9
|
|||
|
|||
Цитата:
Будет ошибка, т.к. For - цикл с предварительно вычисляемым условием. т.е. он сразу вычисляет конечное значение, а ты в цикле убиваешь один элемент и теперь их кол-во Count-2. Вот тут то и кроется ошибка и надо пользоваться downto. |
#10
|
|||
|
|||
Цитата:
Мужик, ну ты хоть условие на свое поправь, да. Естественно, у тебя в файле записано не 'data3', а какая-то конкретная дата... |
#11
|
|||
|
|||
Ну, мужики, вы даете.
Кто же в цикле "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; |