Строки

[Виталюкас]

Помогите пожалуйста:
Разработать функцию FirstSpace(const S:string):integer,
определяющую позицию первого пробела в строке S.
С помощью данной функции вывести только такие строки
из введенного набора, у которых первый пробел находится после середины строки.

[Пепел Феникса]

ваши попытки решить?

[Виталюкас]

function FirstSpace(const S:string):integer;
var i,len,sum:integer;
begin
  sum:=0;
  len:=length(s);
  for i:=1 to len do
      if IsDelimiter('',s,i) then sum:=sum+1;
  result:=sum;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add(Edit1.Text);
end;



procedure TForm1.Button2Click(Sender: TObject);
var x,i:integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do
  begin
    x:=FirstSpace(ListBox1.Items[i]);
    ListBox2.Items.Add(ListBox1.Items[i]);
  end;
end;

[Виталюкас]

но здесь он выводит все строки, а мне надо хотябы те в которых есть пробел

[Don Karleone]

извините, а что означает функция IsDelimiter???

[Виталюкас]

Сообщение от Don Karleone

извините, а что означает функция IsDelimiter???

Функция IsDelimiter возвращает True, если символ, начинающийся с позиции байта Index в строке S, является одним из символов Delimiters. False возвращается, если символ не содержится в Delimiters, если Index находится вне границ строки или если символ в позиции Index является первым или вторым байтом многобайтового символа. Delimiters не может быть многобайтовой строкой, и нельзя использовать #0 в качестве одного из разделителей.

[Пепел Феникса]

function FirstSpace(const S:string):integer;
var i,len:integer;
begin
 Result:=0;
 len:=length(s);
 for i:=1 to len do
  if s[i]=' ' then begin
                      Result:=i;
                      exit;
                     end;
end;

половина длины строки будет так Length(s) div 2

итог

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ListBox1.Items.Count-1 do
  if (FirstSpace(ListBox1.Items[i])>(Length(ListBox1.Items[i]) div 2)) then ListBox2.Items.Add(ListBox1.Items[i]);
end;

и в личку писать не нужно.

[Don Karleone]

Сообщение от Виталюкас

Помогите пожалуйста:

У вас сказано - разработать функцию FirstSpace(const S:string):integer, определяющую позицию первого пробела в строке S.

может надо сделать так:

function FirstSpace(const S: string): integer;
var 
  i,p: integer;
begin
  p:=0;
  for i:=1 to Length(s) do
     begin
        if s[i] = ' ' then p:=i;
        if p <> 0 then break;
     end;
  Result:=p;
end;

если функция вернет 0, то пробела в строке S нет. В противном случае она вернет позицию первого пробела в этой строке. Короче сделает тоже самое, что и функция Pos(' ',S);

[MadReason]

function FirstSpace(const S:string):integer;
var i,len,sum:integer;
begin
  result:=pos(' ',s);
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,i:integer;
begin
ListBox1.Clear;
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    x:=FirstSpace(Memo1.Lines.Strings[i]);
    if x>((Length(Memo1.Lines.Strings[i])+1)div 2) then
    ListBox1.Items.Add(Memo1.Lines.Strings[i]);
  end;
end;

c тебя пиво)

[Виталюкас]

всем ОГРОМНОЕ СПАСИБО