Помогите просто прога глючит и всё  вот её содержимое может я не так понял что ты мне дал
| Код |
function SearchSC(m:TStrings;sc:string):string;
var
I:Integer;
begin
for I := 0 to m.Count - 1 do
begin
if pos(sc,m.Strings[I])>0 then Result:=m.Strings[I];
end;
end;
function SearchValue(SSC,ns:string):string;
var
psc,t1,t2:Integer;//
begin
psc:=pos(ns,SSC);
repeat
psc:=psc-1;
until (Copy(SSC,psc,1)='"'); t2:=psc;
repeat
psc:=psc-1;
until (Copy(SSC,psc,1)='"'); t1:=psc;
Result:=Copy(SSC,t1+1,t2-t1-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var ss:tstringlist; s,SSC:string;
begin
ss:=tstringlist.create;
ss.add('login_name='+Edit1.Text);
ss.add('login_password='+Edit2.Text);
ss.add('login=submit');
IdHTTP1.Post('http://dolce-files.ru/?do=addnews',ss);
s:=IdHTTP1.Get('http://dolce-files.ru/?do=addnews');
Memo3.Text:=s;
SSC:=SearchSC(Memo3.Lines,'select class');
ShowMessage(SearchValue(SSC,'Программы'));
ss:=tstringlist.create;
ss.add('login_name='+Edit1.Text);
ss.add('login_password='+Edit2.Text);
ss.add('login=submit');
ss.add('catlist[]='+SSC);
ss.add('title='+Edit3.Text);
ss.add('short_story='+memo2.Text);
ss.add('full_story='+memo1.Text);
ss.add('mod=addnews');
IdHTTP1.Post('http://dolce-files.ru/?do=addnews',ss);
end;
|
|
а дай если можеш где про эту обработку текста можно почитать.