органичить строк в memo

[Smitt&Wesson]

Сообщение от Аватар

Но было иЧего вообще с таким подходом в программирование идти?

Аватар, мы тоже не сразу такими родились. И нас учили, иногда и по морде били за незнания.

[alman12]

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

if Memo1.Lines.Count=3 then
Memo1.Lines.Delete(3);

[alman12]

Сообщение от Аватар

Но было иЧего вообще с таким подходом в программирование идти?

как будто ты придумал язык програмирования паскал

[Аватар]

как будто ты придумал язык програмирования паскал

Ни в коем разе. Его Вирт придумал в далеком 70-ом. Мне слабо. Прикинь, у него не было интернета. И не у кого было спрашивать как строчку в Memo засунуть

[alman12]

Сообщение от Аватар

Ни в коем разе. Его Вирт придумал в далеком 70-ом. Мне слабо. Прикинь, у него не было интернета. И не у кого было спрашивать как строчку в Memo засунуть

ты такой умный , а ты что придумал китайский язык ?

[Вадим Мошев]

alman12
Так, хамить не надо

[Stilet]

а ты что придумал китайский язык ?

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

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.

Всего-то. И использовать тогда именно этот новый метод, а не классические.

[alman12]

спасибо всем за помошь , Аватар меня хамил

[DIgorevich]

Шикарная репутация у ТС, сразу становится понятно, кто и кому хамит)) А по делу, хамство - это негативное оценочное действие направленное в чью-то сторону. В данном случае Аватар не говорил конкретно, мол, ты, имярек, что-то неправильно делаешь или не так себя ведешь. Я для себя объясняю его фразу как сетование на отношение сегодняшней молодежи к учебе и даже попыткам что-либо изучить.

[alman12]

Спасибо тебе Stilet