[Димона]

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;

вот че-то думала и не додумала..

[stil]

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var s: TShape;
begin
if Button=mbLeft then begin
  s:=TShape.Create(form1);
  with s do begin
    Parent:=form1;
    Height:=100;
    Width:=100;
    Shape:=stcircle;
    Top:=Y-trunc(S.Height/2);
    Left:=X-trunc(S.Width/2);
  end;
end;
end;

[stil]

Код:

var
s:string;
dl,k:integer;
begin
s:=memo1.lines.text;
dl:=length(s);
k:=dl div 2;
delete(s,k,1);
memo2.lines.add(s);
end;

[Димона]

Сообщение от stil

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var s: TShape;
begin
if Button=mbLeft then begin
  s:=TShape.Create(form1);
  with s do begin
    Parent:=form1;
    Height:=100;
    Width:=100;
    Shape:=stcircle;
    Top:=Y-trunc(S.Height/2);
    Left:=X-trunc(S.Width/2);
  end;
end;
end;

а тут по другому никак?..

[Димона]

Сообщение от stil

Код:

var
s:string;
dl,k:integer;
begin
s:=memo1.lines.text;
dl:=length(s);
k:=dl div 2;
delete(s,k,1);
memo2.lines.add(s);
end;

но она работает только если я ввожу 1 слово.. а если несколько..?

[stil]

Сообщение от Димона

а тут по другому никак?..

а чем не нравиться или тебе только один нужен

[stil]

тебе нужно в каждом слове центральный символ удалить?

[Димона]

Сообщение от stil

тебе нужно в каждом слове центральный символ удалить?

да! в каждом)

[Димона]

Сообщение от stil

а чем не нравиться или тебе только один нужен

у меня ошибку в варе выдает - эт раз)
а второе .. рандомом там никак нельзя?)

[stil]

Код:

var
s,s1:string;
dl,d2,k,j:integer;
begin
s1:='';
s:=memo1.lines.text;
j:=pos(' ',s);
while j>0 do begin
  delete(s, j div 2, 1);
  s1:=s1+copy(s,1,j);
  delete(s,1,j);
  j:=pos(' ',s);
end;
  j:=Length(s);
  delete(s, j div 2, 1);
  s1:=s1+copy(s,1,j);
  memo2.lines.add(s1);
end;

[stil]

Код:

var
s,s1:string;
dl,d2,k,j, i:integer;
begin
s1:='';
for i:=0 to memo1.Lines.Count-1 do begin
  s:=memo1.lines[i];
  j:=pos(' ',s);
  while j>0 do begin
    delete(s, j div 2, 1);
    s1:=s1+copy(s,1,j);
    delete(s,1,j);
    j:=pos(' ',s);
  end;
    j:=Length(s);
    delete(s, j div 2, 1);
    s1:=s1+copy(s,1,j);
    memo2.lines.add(s1);
    s1:='';
end;
end;

[stil]

в первом добавь

Код:

uses ExtCtrls

и вместо

Код:

Top:=Y-trunc(S.Height/2);
Left:=X-trunc(S.Width/2);

замени на

Код:

Randomize;
left:=random(form1.ClientWidth-Width);
top:=random(form1.ClientHeight-Height);

[Димона]

спасибо большое!