Pokusavam da napravim program koji ce iz jednog txt fajla punog raznih podataka sastavljati ugovor tako sto menja neke reci u template.rtf fajlu. Pokusao sam sledece sto se cinilo kao logicno, ali Insert i Delete kao da ne rade, prodje kompajliranje ali ne obavi posao.... Jel zna neko zasto, i kako to ispraviti??
//kada se otvori txt fajl, on treba da se prikaze u
void __fastcall TForm1::OtvoriClick(TObject *Sender)
{
if( OpenDialog1->Execute() == True )
{ int c= 0;
rtf->Lines->LoadFromFile("template.rtf"); //richedit koji ispise sadrzaj template.rtf, i njega treba menjati
c = rtf->Text.Pos("zstpnk") ; //rec zstpnk treba zameniti sadrzajem richedit-a "Zastupnik"
rtf->Text.Delete(c,6); //ovo prodje kompajliranje, ali ne uradi nista
rtf->Text.Insert(Zastupnik->Lines->GetText(),Zastupnik->Text.Length()); //i ovo prodje kompajliranje, ali ne uradi nista
}
}
Molim za pomoc, gubim zivce :)))
//kada se otvori txt fajl, on treba da se prikaze u
void __fastcall TForm1::OtvoriClick(TObject *Sender)
{
if( OpenDialog1->Execute() == True )
{ int c= 0;
rtf->Lines->LoadFromFile("template.rtf"); //richedit koji ispise sadrzaj template.rtf, i njega treba menjati
c = rtf->Text.Pos("zstpnk") ; //rec zstpnk treba zameniti sadrzajem richedit-a "Zastupnik"
rtf->Text.Delete(c,6); //ovo prodje kompajliranje, ali ne uradi nista
rtf->Text.Insert(Zastupnik->Lines->GetText(),Zastupnik->Text.Length()); //i ovo prodje kompajliranje, ali ne uradi nista
}
}
Molim za pomoc, gubim zivce :)))