Вывод из memo на label

@Euforia · Регистрация: 10.12.2009

Author24 — интернет-сервис помощи студентам

помогите реализовать: в процедуре

Delphi

procedure TGameForm.Memo2Change(Sender: TObject);
{происходит сравнивание символов мемо1 и мемо2. если символ не совпадает этот символ выводится на метке. примерно как-то так: }
var i,j,len:integer;
begin
Mem1Str:=Memo1.Text;
Mem2Str:=Memo2.Text;
for i:=0 to Memo1.Lines.Count-1 do
begin
len:=length(Memo1.Lines[i]);
if length(Memo2.Lines[i])<len then len:=length(Mem2Str[i]);
for j:=1 to len-1 do
if (Memo1.Lines[i][j])<>(Mem2Str[j]) then MLabel.Caption:=Memo2.Lines[j]

@ProgLab · 18.11.2010, 20:16

Попробуй покапаться в имеюшихся строковых функциях Delphi.

@Euforia · 18.11.2010, 20:35 **[ТС]**

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

@ProgLab 24 / 24 / 0 Регистрация: 09.11.2010 Сообщений: 190
	18.11.2010, 20:16	2
	Попробуй покапаться в имеюшихся строковых функциях Delphi. 0

@Euforia 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 33
	18.11.2010, 20:35 [ТС]	3
	я так уже там покопалась...один раз получилось, только не ошибки выводило, а всё что набиралось. теперь и того не получается =( 0

Опции темы