Дайте ответ новичку: сохранение в Excel и подгрузка текста

[Svoja4ok]

Игорь Акопян, слушай, блин... у меня в делфях хелп урезаный... можешь, пожалуйста, привести примерчик смены значения лабел1 по нажатию кнопки1? соответсвенно из файла...

[Naeel Maqsudov]

Svoja4ok,
1. Установите себе нормальную систему с хелпом! Это обязательно.
2. В данном случае хелп ни при чем - все элементарно. Пусть P - это переменная, StringList1 - это список с загруженными в него строками.
В обработчике кнопки пишем всего 2 строки:

Label1.Caption:=StringList1.Strings[P];
P:=(P+1) mod StringList1.Count;

Переменнная P будет меняться "по кругу" вперед, возвращаясь к нулевой строке после прохождения последней.

[Игорь Акопян]

У меня на этой машине нет дельфей...
У TStringList должен быть метод LoadFromFile, с его помощью читаем из файла строки. Далее что-то типа

Код: Выделить всё

procedure NextStringButton(Sender: TObject);
begin
  Inc(iStrNum);
  MyLabel.Caption := MyStringList[iStrNum];
end;

procedure PrevStringButton(Sender: TObject);
begin
  Dec(iStrNum);
  MyLabel.Caption := MyStringList[iStrNum];
end;

упс... долго читал

[Naeel Maqsudov]

Ага
Деление по модулю - это старый - "с бородой" - прием. Не забывайте его.

(P-1) mod StringList1.Count;

естественно работает тоже по кругу, только назад.

[Игорь Акопян]

Naeel Maqsudov, не спорю, отличный приём, когда надо закруглить обход