не прошу делать всё за меня, но прошу помочь с кодом.
1) такой код который сканирует memo на предмет слова в стринге.
2)Затем он узнаёт строчку в memo где найдено слово
3)он копирует содержимое строчки до слова
5)всё.спасибо.большое.
Skrillex3
23.09.2012, 22:47
не прошу делать всё за меня, но прошу помочь с кодом.
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
24.09.2012, 17:34
возможны ошибки тк уже давно нифига не пишу в делфе
спс
Dinmaite
24.09.2012, 19:05
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
25.09.2012, 22:01
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;
Т.к. выше совсем не то что просил ТС.
уже)) спасибо вам большое)
благодаря первому посту понял что к чему)) благодаря вашему исправил свои ошибки) программу написал, благодарю