Показать сообщение отдельно
  #10  
Старый 09.04.2012, 20:05
Аватар для R-18Rus
R-18Rus R-18Rus вне форума
Новичок
 
Регистрация: 08.04.2012
Сообщения: 68
Версия Delphi: Delphi 7
Репутация: 127
По умолчанию

Да, пример я опробовал - те же лаги.
Цитата:
используйте метод Add
- метод 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. Почему меня постоянно выкидывает из аккаунта на форуме? Порой, на страницу зайду - авторизован, куда-то перемещусь - уже не авторизован.
Ответить с цитированием