Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2011, 18:27   #1
nyasha2013
Пользователь
 
Регистрация: 13.05.2011
Сообщений: 38
По умолчанию опять я опять мемо

хоть убейте, не могу найти

из файла в мемо загружается текст

надо в лейбл1 вывести последнюю не пустую строку
а во второй предпоследнюю

...
nyasha2013 вне форума Ответить с цитированием
Старый 19.05.2011, 19:47   #2
GetMax
Форумчанин
 
Регистрация: 21.10.2010
Сообщений: 588
По умолчанию

Как то так
Код:
procedure TForm1.Button1Click(Sender: TObject);
Var
  i,number:Integer;
begin
  If Memo1.Lines.Count >= 2 then
  Begin
  With Memo1 do
  Begin
    For i:=Lines.Count-1 downto 0 do
    If (Lines[i] <> '') then
    Begin
      Label1.Caption:=Lines[i];
      number:=i;
      Break
    End;
    For i:=number-1 downto 0 do
    If (Lines[i] <> '') then
    Begin
      Label2.Caption:=Lines[i];
      Break
    End;
  End;
  End
  Else
  ShowMessage('Мало строк')
end;
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681
GetMax вне форума Ответить с цитированием
Старый 19.05.2011, 20:09   #3
nyasha2013
Пользователь
 
Регистрация: 13.05.2011
Сообщений: 38
По умолчанию

огромное спасибо
nyasha2013 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Шо опять?! zumm Свободное общение 8 11.08.2010 14:13
...... и опять С++ Chaynik011091 Помощь студентам 5 24.06.2009 19:46
И опять мэйлы.. Опять... Pusher PHP 6 28.06.2008 02:08