Вопрос уже кое-где обсжудался. Проблема в нумерации массива. Но какая-то странная.
В Memo строки. Нужно выводить их с задержкой в две секунды на Label или на StatusBar.
Код:
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
for i := 0 to Memo3.Lines.Count - 1 do
ShowMessage(Memo3.Lines[i]);
Label4.Caption := Memo3.Lines[i];
//StatusBar1.Panels[0].Text:=Memo3.Lines[i];
sleep(2000);
end;
Вывод в ShowMessage - работает. Но вроде без задержки. Вывод на Label или StatusBar нет. Мало того что не отображается (кстати, наверное, нужно перерисовывать?) так и выкидывает ошибку с размерностью массива.
И прицепом маленький вопросик - есть ли в Delphi аналог функции trim() - обрезка пробелов с концов строки?