Метод Пузырька!

14 ноября 2006 года

3.5K / / 15.06.2005

showmessage(IntToStr(CompareStr(Memo1.Lines[0], Memo1.Lines[1])));

11K

14 ноября 2006 года

SCiPTAG

34 / / 14.11.2006

Хммм. Заработало Спасибо:
ShowMessage(IntToStr(compareStr(memo1.lines[0],memo1.lines[1])));
Считывает сколько символов в строке и выводит кол.!

А как сделать так чтоб считывала 1ю строку и вносила в переменную и 2ю строку считывала и в другую переменную присваивала! Чтоб эти две переменные можно было сравнить! Переменные integer;

14 ноября 2006 года

3.5K / / 15.06.2005

Var1 := Memo1.Lines[0];
Var2 := Memo1.Lines[1];

11K

15 ноября 2006 года

SCiPTAG

34 / / 14.11.2006

Что-то не пашет!
MER:integer;
…
MER:=Memo1.Lines[0];
Может где-то ошибка?
Может есть другой путь?

Еще вопросик!
Var
MER:integer;
FFX:integer;

FFX:=(‘2’);
MER:=Memo1.Lines[FFX];
Почему-то такое не пашет!?

15 ноября 2006 года

3.5K / / 15.06.2005

Код:

MER:integer;

…

MER:=Memo1.Lines[0];

Конечно ошибка. Memo1.Lines[0] - string

Код:

FFX:integer;

FFX:=(‘2’);

Тоже самое. Правильно: FFX := 2;

11K

16 ноября 2006 года

SCiPTAG

34 / / 14.11.2006

Что то не пашет!
Можешь боле полную версию кода написать? ИЛИ она и так полная?
Вчера перепробовал и integer. string ит.д. но не пашет!

17K

16 ноября 2006 года

disabledx

24 / / 26.10.2006

Если те нужно в две переменные поместить строки из TMemo попробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);

var

s1,s2: string;

begin

 s1:=Memo1.Lines.Strings[0];

 s2:=memo1.Lines.Strings[1];

end;

Удачи

16 ноября 2006 года

3.5K / / 15.06.2005

Дружище, может тебе литературку почитать? О типах данных ещё в третьем классе средней школы на биологии учат.

В Delphi есть чёткое разделение типов данных, а также тип Variant (OleVariant - это не из Delphi, а из Ole). И ты всегда будешь получать ERROR'ы, пока не научишься сопостовлять типы правой части равенства левой. Словами это трудно описать, настолько всё элементарно. Проще говоря, если ты объявляешь переменную как string, то и значение, которое ты ей присваиваешь, должно быть string (есть, конечно разновидности, но это частности).

В твоём случае, Memo1.Lines - это объект типа TStringList. У него есть свойство Items - считай массив, каждый элемент которого - строка типа string. Это всё немного упрощено, на самом деле всё немного иначе, но для понимания достаточно.

Чтобы не лазить за каждым вопросом в форумы, научись читать help'ы. Там всё расписано просто до мелочей. Потрать трое суток на понимание help'а и вопросов задавать будешь в три десятка раз меньше.

PS. Честное слово, не вру: чтобы пользоваться help'ом Delphi английския язык знать совершенно не нужно...