Да, пример я опробовал - те же лаги.
- метод Add не подходит. В файле хранятся значения некоторых переменных (каждое в своей строке). Поэтому нужна точная адресация. Если можно осуществить как-нибудь по-другому напишите с пояснениями, а то я кроме Insert не знаю.
Что значит Count я знаю, почему Вы предлогаете Count-1?
А ещё где тут может быть ошибка?
Код:
procedure TForm1.N3Click(Sender: TObject);
var proezd:TStringList;
begin
if OpenDialog1.Execute then begin
Proezd:=TStringList.Create;
proezd.LoadFromFile(OpenDialog1.FileName);
Label6.Caption:=proezd.Strings[0]+' руб.';
Label7.Caption:=proezd.Strings[1]+' руб.';
Label8.Caption:=proezd.Strings[2]+' руб.';
Label9.Caption:=proezd.Strings[3]+' руб.';
end;
end;
procedure TForm1.N4Click(Sender: TObject);
var proezd:TStringList;
begin
if SaveDialog1.Execute then
begin
Proezd:=TStringList.Create;
proezd.Add(Label6.Caption);
proezd.Add(Label7.Caption);
proezd.Add(Label8.Caption);
proezd.Add(Label9.Caption);
proezd.SaveToFile(SaveDialog1.FileName);
OpenDialog1.FileName:=SaveDialog1.FileName;
end;
end;
- диалоги не открываются по нажатию данных кнопок.
P.S. Почему меня постоянно выкидывает из аккаунта на форуме? Порой, на страницу зайду - авторизован, куда-то перемещусь - уже не авторизован.