[u.s.fire]

Задача выборка из мемо .

решил начать с самого простого .

с выборки со строки , как написано в документации

и не работает

а точнее скорее не правильно обращаюсь , с function

Код:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}

function  AnsiPos ( const Substr, S: string ): Integer; 

procedure TForm1.Button1Click(Sender: TObject);

var



   Substr, S: string;


   I: Integer;


begin


   S:= 'Исходная строка';


   Substr:= 'ход';


   I:= AnsiPos(Substr, S);     // I:= 3


end;



end.

[lmikle]

Дык что не работает? Вроде все нормально (если принять значение, указанное в комментарии за реальное значение I после вызова). Только убери 'function', оно используется для создания новых функций.
А вообще, напиши что хотел то сделать... а то по этому наброску непонятно...

[u.s.fire]

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

Дык что не работает? Вроде все нормально (если принять значение, указанное в комментарии за реальное значение I после вызова). Только убери 'function', оно используется для создания новых функций.
А вообще, напиши что хотел то сделать... а то по этому наброску непонятно...

lmikle рад слышать , в этом глухом интернете ,

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

например , такой текст ,

но будет более важный , примерно 1000 строк мемо

выбрать : понедельник , вторник , среда

определенным алгоритмом , из мемо , во второе мемо , с применением динамического масива

Код:

 вчера : понедельник  число 1.01.1991

                  завтра : вторник число 2.01.1991

                      послезавтра : среда число  03.01.1991

[u.s.fire]

заработало

спс lmikle ,


далее , пристраиватся , к мемо ,