Разбиение строки

[Элексир]

Здравствуйте. такая проблема.

Код:

var
...
fam,imya,otch:string;
i,k,j,j2:integer;
begin
...
i:=length(edit1.Text);
while edit1.Text[i]<>' ' do i:=i-1;
j:=i;
otch:=Copy(edit1.Text,j+1,length(edit1.Text));

k:=1;
while edit1.Text[k]<>' ' do k:=k+1;
j2:=k;
fam:=copy(Edit1.Text,1,j2-1);
imya:=copy(Edit1.Text,j2+1,length(edit1.Text)-(length(otc)+1));

в результате всех махинаций в базе должно быть фамилия имя отчество (по своим столбам разумеется)
у меня же получается
Фамилия (Иванов) Имя (Иван Иван..) Отчество (Иванович). помогите!
можно было бы конечно использовать три эдита для каждого.

[zubr]

Код:

procedure ParsFamImOtch(const FIO: string; var fam, im, otch: string);
type
  TFamImOtch = (fam_, im_, otch_);

var
  s: string;
  k, i: Integer;
  FamImOtch: TFamImOtch;
begin
 s := Trim(FIO);
 FamImOtch := fam_;
 fam:='';
 im:='';
 otch:='';
 For i:=1 to 3 do
 begin
  k := Pos(' ', s);
  Case FamImOtch of
   fam_: begin
    If k<>0 then
    fam := Copy(s, 1, k-1)
    else
    begin
      fam := Trim(s);
      break;
    end;
   end;
   im_: begin
    If k<>0 then
    im := Copy(s, 1, k-1)
    else
    begin
      im := Trim(s);
      break;
    end;
   end;
   otch_: begin
    If k<>0 then
    otch := Copy(s, 1, k-1)
    else
    begin
      otch := Trim(s);
      break;
    end;
   end;
  end;
  Delete(s, 1, k);
  s := Trim(s);
  inc(FamImOtch);
 end;
end;

[Basurman]

Да ладно издеваться над человеком.
Пусть посмотрит на последнюю строку своего кода и прикинет каким образом посчитать количество символов для копирования. Там ведь явное не то, не в смысле очепятки "otc" вместо "otch" - а в смысле, что он про фамилию забыл.

[Элексир]

Zubr, спасибо за код. Правда я не разобрался как его притянуть к моей программе. при вставке твоей процедуры в процедуру нажатие клавиши он пишет ошибку обнаружения процедуры. но если ставить ее вне. а как ее вызвать подскажешь?

Basurman, а зачем этой строке нужна длина фамилии? я же убрал ее из границы указав

copy(Edit1.Text,j2+1

а потом у меня пошли проблемы с длиной копирования. которую я пытался решить разными методами.
вначале у меня там стоял j-1 но и так почему то тоже не проехала.


А вобще я уже решил эту проблемку с использованием функции delete за что спасибо Zubr'у

[zubr]

Элексир, в структуре модуля Delphi есть секция interface и implementation. Так вот чтобы в любом месте секции implementation твоя функция была видна, ее прототип надо объявить в секции interface:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

procedure ParsFamImOtch(const FIO: string; var fam, im, otch: string);

implementation

{$R *.dfm}

procedure ParsFamImOtch(const FIO: string; var fam, im, otch: string);
begin
...............
end;

end.

З.Ы. Стоило бы почитать учебник.

[Basurman]

"copy(Edit1.Text,j2+1" - это откуда начинать копирование.
А то, что после - подсчёт длины копирования.
И если из длины текста вычесть длину отчества, получится длина фамилии + длина имени. Вот и копируется имя + часть отчества, хорошо хоть фамилия короткая.

[Элексир]

Basurmanспасибо за науку, теперь буду знать!