F.Add(‘Прощай’);// Добавляю новую строку - раздел Образование, Работа с массивами динамические массивы F.savetofile(‘C:filename.txt’); // Сохраняю Результат F.free; ...
f.SaveToFile(‘c:filename.txt’); // Сохраняю результат f.Free; end;
На всякий случай, прежде чем изменить пятую строку я проверяю, есть ли в файле эти пять строк. Если окажется меньше пяти, то при попытке изменения данных произойдёт ошибка.
В этом же примере я добавляю в конец файла новую строку с помощью вызова метода Add. После этого я сохраняю результат в том же файле с помощью вызова метода SaveToFile. Если не вызывать метод сохранения, то все изменения пропадут, потому что данные изменяются в объекте, а не в файле, поэтому объект надо сохранять обратно в файл.
На этом можно закончить рассмотрение объекта, но я хочу ещё показать тебе несколько методов:
1. 1. Clear – очистка содержимого объекта.
2. 2. Insert – вставить строку. У этого метода два параметра – индекс строки куда нужно вставить и сама строка.
3. 3. Delete – удалить строку. Здесь только один параметр – индекс удаляемой строки.
Вот теперь можно считать, что с текстовыми файлами и объектом TStringList покончено. Можно двигаться дальше.
10.5 Приведение типов
Сейчас я постараюсь, как можно подробнее остановиться на теме приведения типов. В любой программе может понадобиться преобразование данных из одного типа в другой.
Преобразование типов делиться на два вида: преобразование несовместимых типов и преобразование совместимых типов. В качестве несовместимых типов можно привести пример превращения строки в число. Допустим, что у тебя есть строка «12345». Это строка, содержащее число. Но ты не можешь производить с такой строкой математических действий, потому что это строка, хотя и содержащее число. Для начала нужно преобразовать эту строку в число.
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ:
F.Add(‘Прощай’);// Добавляю новую строку
Что будем делать с полученным материалом:
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
For i:=0 to High(r)-1 do begin
r[i]:=i*i;
ListBox1.Items.Add(IntToStr(i)+' в квадрате ='+IntToStr(r[i])); end;
В области объявлений VAR я объявил две перем
For i:=0 to High(r)-1 do
r[i]:=i*i;
SetLength(r,20); for i:=10 to High(r)-1 do r[i]:=i*i;
for i:=0 to High(r) do ListBox1.Items.Add(IntToStr(i)+' в квадрате ='+In
Преобразование целых чисел в строку и обратно
Начну я с рассмотрения специальных функций для преобразования несовместимых типов. Самое частое, что может тебе понадобиться – преобразование строк в число и обратно. Допустим, что тебе нужно напис
Преобразование даты в строку и обратно
Теперь познакомимся с преобразованием даты. Для этого есть несколько функций:
1. 1. DateToStr – преобразовывает дату в строку. Единственный параметр, который надо указать – переменн
Преобразование вещественных чисел
Теперь перейдём к числам с плавающей точкой. Когда ты строишь математику в своей программе, то можешь столкнуться с вещественными числами. Например, если у тебя есть какая-то формула, в которой исп
Преобразование строк
Допустим, что у тебя есть строка типа String и ты хочешь её преобразовать в PChar. Для такого преобразования нужно написать требуемый тебе тип и в скобках указать свою строковую перем
Var p:Pointer
Для того, чтобы получить адрес переменной или объекта, необходимо перед его именем поставить знак @. Например, у тебя есть строка Str и чтобы присвоить её а
Var p:Pointer
Для того, чтобы получить адрес переменной или объекта, необходимо перед его именем поставить знак @. Например, у тебя есть строка Str и чтобы присвоить её а
Var p:Pointer
Для того, чтобы получить адрес переменной или объекта, необходимо перед его именем поставить знак @. Например, у тебя есть строка Str и чтобы присвоить её а
Закрываем поиск
FindClose(SearchRec); end;
На компакт диске, в директорииПримерыГлава 10FindF
If WindowState=wsNormal then
begin FIniFile.WriteInteger('Option', 'Width', Width); FIniFile.WriteInteger('Option', 'Heigth', Height); FIniFile.WriteInteger('Option', 'Left', Left); FIniFile.WriteIn
Procedure TForm1.LoadProgParam; var
FIniFile: TRegIniFile; begin FIniFile := TRegIniFile.Create('Software');
FIniFile.OpenKey('VR',true);
FIniFile.OpenKey('VR-Online',true);
Хотите получать на электронную почту самые свежие новости?
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Новости и инфо для студентов