Строки. Делфи.

[РэБ]

Определить в тексте количество слов совподающих с заданым. Текс помещять в Мемо.
Помогите решить послезавтра экзамен xD

Любой помощи буду рад, и благодарен.))

[Hacker19_90]

count := 0;
while pos('Слово', stroka) <> 0 do
    Inc (count);

[РэБ]

Можно немного с пояснением?
Учила дала каждому по 3 лабы и в больничный... так что мои знания в строках равняются нулю >_< учитывая, что на пару по строкам она меня не пустила, за опоздание... ну не об этом сейчас xD

[MyLastHit]

count := 0;
while pos('Слово', stroka) <> 0 do
Inc (count);

Молодец, но не правильно. Ты только что убил его компилятор бесконечным циклом.

РэБ, вот тебе весь код. Просто скопипасть его, и откомпилируй. Никаких компонентов не суй на форму.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Klick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mmo:TMemo;
  edt:TEdit;
  btn:TButton;
implementation

{$R *.dfm}

procedure TForm1.Klick(Sender: TObject); // Hacker19_90 вот так вот эта процедура выглядит
var i,count:integer;
s:string;
begin
  Count:=0;
  s:=mmo.text;
  for i:=1 to length(s) do
  if pos(edt.Text, s) <> 0 then
  begin
    count:=count+1;
    Delete(s,pos(edt.Text, s),Length(edt.Text));
  end;
  btn.Caption:=IntToStr(count);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  mmo:=TMemo.Create(Self);
  with mmo do
  begin
    parent:=Form1;
    left:=15;
    Width:=Form1.Width-50;
    Top:=1;
    Height:=Trunc(form1.Height/2);
  end;
  edt:=TEdit.Create(Self);
  with edt do
  begin
    parent:=Form1;
    left:=15;
    Width:=Form1.Width-50;
    Top:=mmo.Height;
    Height:=21;
  end;
  btn:=TButton.Create(Self);
  with btn do
  begin
    parent:=Form1;
    left:=15;
    Width:=Form1.Width-50;
    Top:=mmo.Height+21;
    Height:=31;
    Caption:='Найти';
    OnClick:=Klick;
  end;
end;
end.

[РэБ]

О_О на полностью решенную задачу я и не надеялся оО
Спасибо тебе огромное!!!

1 из 3 задач готова xD остались самые сложные, пойду мучать Делфи и Инэт!)
еще раз чисто студенческое спасибо! xD

[Hacker19_90]

Цитата:

count := 0;
while pos('Слово', stroka) <> 0 do
Inc (count);

Молодец, но не правильно. Ты только что убил его компилятор бесконечным циклом.

В следующий раз будут наработки выкладывать

[MyLastHit]

Да пофиг, какие могут быть наработки если он не знает принципы обращения со строками. В любом случае было бы неправильно... Легче самому уж с 0 написать и скинуть. Да и делов та в этой задачке... Другое дело когда через "одно место" их дают преподы. Мое любимое : "Найти элемент массива кратный 5 и отстоящий от главной диагонали на модуль разности произведений крайних элементов, расположеных в углах матрицы...в противном случае..."