1.при нажатии левой кнопки мыши появляется кружочек.
Код:
if button=mbleft then shape1.shape:=stcircle;
а как чтобы при нажатии кнопки мыши в любом месте на форме?
2. вывести слова исходного текста без центрального символа
Код:
var
s:string;
dl,p,k,sl:integer;
begin
s:=memo1.lines.text;
dl:=length(s);
while pos(' ',s)<>0 do begin
p:=pos(' ',s);
sl:=copy(s,1,p-1);
k:=sl div 2;
delete(s,k,1);
end;
memo2.lines.add(s);
end;
вот че-то думала и не додумала..