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

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

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

Ответ
 
Опции темы
Старый 25.11.2015, 22:59   #11
Smitt&Wesson
Профессионал
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Адрес: г. Киров
Сообщений: 13,989
Репутация: 607

skype: forwardbiznes
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Но было иЧего вообще с таким подходом в программирование идти?
Аватар, мы тоже не сразу такими родились. И нас учили, иногда и по морде били за незнания.
__________________
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума   Ответить с цитированием
Старый 25.11.2015, 23:29   #12
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 412
Репутация: -159
По умолчанию

а как удалит все начиная с третей строки

if Memo1.Lines.Count=3 then
Memo1.Lines.Delete(3);
alman12 вне форума   Ответить с цитированием
Старый 25.11.2015, 23:33   #13
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 412
Репутация: -159
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Но было иЧего вообще с таким подходом в программирование идти?
как будто ты придумал язык програмирования паскал
alman12 вне форума   Ответить с цитированием
Старый 25.11.2015, 23:40   #14
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,679
Репутация: 6211
По умолчанию

Цитата:
как будто ты придумал язык програмирования паскал
Ни в коем разе. Его Вирт придумал в далеком 70-ом. Мне слабо. Прикинь, у него не было интернета. И не у кого было спрашивать как строчку в Memo засунуть
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар на форуме   Ответить с цитированием
Старый 26.11.2015, 00:31   #15
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 412
Репутация: -159
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Ни в коем разе. Его Вирт придумал в далеком 70-ом. Мне слабо. Прикинь, у него не было интернета. И не у кого было спрашивать как строчку в Memo засунуть
ты такой умный , а ты что придумал китайский язык ?
alman12 вне форума   Ответить с цитированием
Старый 26.11.2015, 00:57   #16
Вадим Мошев
гигаМодератор :)
Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 7,489
Репутация: 3678
По умолчанию

alman12
Так, хамить не надо
Вадим Мошев на форуме   Ответить с цитированием
Старый 26.11.2015, 10:48   #17
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,957
Репутация: 6832
По умолчанию

Цитата:
а ты что придумал китайский язык ?
Его не так уж и сложно придумать. Аватар бы вполне справился.
А тебе рекомендую подумать хорошенько. Особенно научиться вопросы задавать.
Например на твой топ может быть такой ответ:
Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  { TMemo }
//Переопределим Класс Мемо, добавив в него свой метод
  TMemo=class(StdCtrls.TMemo)
    public procedure AddString(S:String);
  end;

  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TMemo }

procedure TMemo.AddString(S: String);
begin
 //В котором будет проверка на кол-во строк
  if Lines.Count=2 then ShowMessage('Добавлять нииззя')
  else Lines.Add(s);
end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.AddString('123);
end;

end.

Всего-то. И использовать тогда именно этот новый метод, а не классические.
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 26.11.2015, 20:02   #18
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 412
Репутация: -159
По умолчанию

спасибо всем за помошь , Аватар меня хамил
alman12 вне форума   Ответить с цитированием
Старый 26.11.2015, 20:07   #19
DIgorevich
Погулять вышел
Профессионал
 
Аватар для DIgorevich
 
Регистрация: 17.05.2010
Адрес: за спиной
Сообщений: 1,572
Репутация: 246
По умолчанию

Шикарная репутация у ТС, сразу становится понятно, кто и кому хамит)) А по делу, хамство - это негативное оценочное действие направленное в чью-то сторону. В данном случае Аватар не говорил конкретно, мол, ты, имярек, что-то неправильно делаешь или не так себя ведешь. Я для себя объясняю его фразу как сетование на отношение сегодняшней молодежи к учебе и даже попыткам что-либо изучить.
__________________
Никогда не знаешь, где тебе повезет... (Фрай) http://dvorkin.by/
DIgorevich вне форума   Ответить с цитированием
Старый 26.11.2015, 20:09   #20
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 412
Репутация: -159
По умолчанию

Спасибо тебе Stilet
alman12 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi.Чтение файла в Memo, вычисление, добавление строк в Memo antonio_sk Помощь студентам 0 26.04.2013 18:01
Удаление строк в Memo qpuTuJlb Помощь студентам 6 01.06.2012 17:17
Memo перенос строк. mt10forex Помощь студентам 7 07.07.2010 09:23
Органичить скорость передачи Denager Работа с сетью в Delphi 22 05.03.2008 10:08
Нумерация строк в Memo Макс84 Компоненты Delphi 10 02.04.2007 17:10


17:34.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru