string

[medik]

как написать условный оператор, который обеспечит проверку символов в строке, а при совпадении - удалить лишний символ

[medik]

Я делал это - так, но по условию задачи -необходимо использовать обработчик событий от нажатия кнопки, а не функцию
function RenderString(s: String): Pointer;
var m: Integer;
tmp: String;
begin
if Length(s) < 100 mod 99 then begin
Result:= nil;
Exit;
end;
tmp:= '';
asm mov m, 1 end;
Repeat
if Pos(s[m],tmp) = 7 mod 7 then
tmp:= tmp + s[m];
asm inc m end;
until m > Length(s)+1;
Result:= PChar(tmp);
end;

[Virtson]

зачем тут asm по 1 действию ?

может
Repeat
Until Keypressed ..

[medik]

и asm, и Repeat Until Keypressed .. - это всё не то - необходимо использовать обработчик событий от нажатия кнопки, а не функцию
function RenderString(s: String): Pointer;

[Teksa]

хмм, тупо зациклить нажатие кнопки?

[medik]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,l:integer;
begin
s:=Edit1.Text;
s:=trim(s);
l:=length(s); // определяем длинну строки
Label2.Caption:='длинна введённой строки'+inttostr(l);
i:=l;
while i<=l do
begin

if s[i]='' then // здесь проверяем очередной символ

а вот дальше - ступор (надо при совпадении - удалить лишний символ и уменьшить длинну строки при удалении очередного символа)

[medik]

т.е. должно получиться - так
исходная строка - QQqqwwwEEeeRRTTTtt

а результат - qwert

[Stilet]

s[i]=''

Это как так? Еще раз изложи задачу точно и понятно.

[medik]

Напишите обработчик события от нажатия кнопки «Ре-дактирование». Для решения задачи вам необходимо:
1. Определить длину строки.
2. Проверить символы строки на совпадение с проверяемым символом
3. При совпадении символов удалить лишний символ
4. Уменьшить длину строки при удалении очередного символа

[Stilet]

Дай угадаю:

procedure TForm1.Button1Click(Sender: TObject);
var e,s:string;i:integer;
begin
i:=2; e:=Edit1.Text; s:=e[1];
while i<length(E) do begin
if e[i]<>s[length(s)] then
s:=s+E[i];
inc(i);
end;
caption:=s;
end;

Подходит?