[Помогите!] вопросы.

[CyberNEŦik]

не прошу делать всё за меня, но прошу помочь с кодом.
1) такой код который сканирует memo на предмет слова в стринге.
2)Затем он узнаёт строчку в memo где найдено слово
3)он копирует содержимое строчки до слова
5)всё.спасибо.большое.

[Skrillex3]

Цитата: Сообщение от CyberNEŦik не прошу делать всё за меня, но прошу помочь с кодом. 1) такой код который сканирует memo на предмет слова в стринге. 2)Затем он узнаёт строчку в memo где найдено слово 3)он копирует содержимое строчки до слова 5)всё.спасибо.большое.

Цитата: for i:= 0 to memo.lines.count -1 do begin if (memo.lines[i]=String) ShowMessage('номер строки '+memo.line[i]+ Copy(0, pos(String , 0 ,memo.lines[i])); end;

возможны ошибки тк уже давно нифига не пишу в делфе

[CyberNEŦik]

Цитата: Сообщение от Skrillex3 возможны ошибки тк уже давно нифига не пишу в делфе

спс

[Dinmaite]

var
  i, j:integer;
begin
  i:=memo.lines.count-1
  for i:= 0 to i do
    begin
      j:=pos(string,memo.lines[i])
      if j>0 then
        ShowMessage(Copy(memo.lines[i],1, j-1));
    end;
end;

Т.к. выше совсем не то что просил ТС.

[CyberNEŦik]

Цитата: Сообщение от Dinmaite var i, j:integer; begin i:=memo.lines.count-1 for i:= 0 to i do begin j:=pos(string,memo.lines[i]) if j>0 then ShowMessage(Copy(memo.lines[i],1, j-1)); end; end; Т.к. выше совсем не то что просил ТС.

уже)) спасибо вам большое)
благодаря первому посту понял что к чему)) благодаря вашему исправил свои ошибки) программу написал, благодарю