Delphi kutak

[Deusdies]

Imam jedan problem; planiram da napravim program JAD2JAR maker® koji bi skinuo JAR fajlove pomocu JAD fajlova. To ovako izgleda: udjes u program; kliknes na Otvori JAD; on u RichEdit-u ispise sta se nalazi u tom JAD-u. Izmedju ostalog, nalazi se i linija texta: MIDlet-Jar-URL: <game>.jar

Mene zanima kako da selektujem to <game>.jar koja je uvek promenljiva [string] (npr. moze biti Splinter_cell.jar ; Prince_of_Persia.jar) kako bih ga iskopirao u clipboard. Postoji li komanda da selektujes celu liniju texta? Ako postoji, kako bi moglo da se izvede nesto kao findtext('MIDlet-Jar-URL:',...,...,...) pa onda select line gde se to nalazi, pa onda oduzmem string MIDlet-jar-URL i ostane samo <game>.jar???

[Goran]

deusdies kaže:

Imam jedan problem; planiram da napravim program JAD2JAR maker® koji bi skinuo JAR fajlove pomocu JAD fajlova. To ovako izgleda: udjes u program; kliknes na Otvori JAD; on u RichEdit-u ispise sta se nalazi u tom JAD-u. Izmedju ostalog, nalazi se i linija texta: MIDlet-Jar-URL: <game>.jar

Mene zanima kako da selektujem to <game>.jar koja je uvek promenljiva [string] (npr. moze biti Splinter_cell.jar ; Prince_of_Persia.jar) kako bih ga iskopirao u clipboard. Postoji li komanda da selektujes celu liniju texta? Ako postoji, kako bi moglo da se izvede nesto kao findtext('MIDlet-Jar-URL:',...,...,...) pa onda select line gde se to nalazi, pa onda oduzmem string MIDlet-jar-URL i ostane samo <game>.jar???

Npr, imas na formi richedit1 i button1, za onclick na button1 treba da ubacis sledeci kod:

procedure TForm1.Button1Click(Sender: TObject);
var
    Trazena_linija: string;
begin
     richedit1.SelStart:=richedit1.FindText('MIDlet-Jar-URL:', 0, length(richedit1.text), []);
     Trazena_linija:=richedit1.Lines.Strings[richedit1.CaretPos.y];
end;

Po kliku na button1 promenljiva Trazena_linija ce sadrzati celu liniju iz richedit1 u kojoj se pojavljuje string MIDlet-Jar-URL:.

[Goran]

Evo nadjoh jos malo vremena da kompletiram proceduricu:

procedure TForm1.Button1Click(Sender: TObject);
var
    Trazena_linija: string;
    t_pocetak, t_kraj: integer;
    Trazena_rec: string;
begin
     richedit1.SelStart:=richedit1.FindText('MIDlet-Jar-URL:', 0, length(richedit1.text), []);
     Trazena_linija:=richedit1.Lines.Strings[richedit1.CaretPos.y];

     t_pocetak:=pos('MIDlet-Jar-URL:', trazena_linija);
     t_pocetak:=t_pocetak+length('MIDlet-Jar-URL:');
     t_kraj:=pos('.jar', trazena_linija);

     trazena_rec:=copy(trazena_linija, t_pocetak, t_kraj-t_pocetak);
end;

Promenljiva trazena_rec ce sadrzati nepoznati string koji trazis, a koji se nalazi se izmedju stringova MIDlet-Jar-URL: i .jar, u liniji pronadjenoj u richeditu, koja sadrzi string MIDlet-Jar-URL:. Valjda je to to sto ti je trebalo.

[Deusdies]

Hvala ti Gorane puno, ali ja sam resio na sledeci nacin:

StartPos := 0;

    { ToEnd is the length from StartPos to the end of the text in the rich edit control }

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText('MIDlet-Jar-URL: ', StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      selstart:=0 ;
      sellength:=foundat-startpos+Length('MIDlet-Jar-URL: ');
      richedit1.ClearSelection ;
      richedit1.Lines.SaveToFile('C:\JAD2JARdatafile.j2j');
      //odavde krece assign file
      assignfile(F,'C:\JAD2JARdatafile.j2j');
      reset(F);
      readln(F,s);  //readln cita samo prvi red texta
      richedit1.Lines.Text:=s;
      closefile(F);

Ali cu definitivno tvoje (bolje) resenje ubaciti u neku narednu verziju programa!
P.S. Ako te zanima, imas download na http://users.cjb.net/jad2jarcreator/...se%20setup.exe

[jovica016]

Pogledajte neke od mojih programa na www.polarotor.co.yu -WinXP Doktor, Power Tweak i WinSecurity. Pozzz

[Deusdies]

@Jovica - kako ubacujes program na polarotor sajt? Imam par programa koja bih zeleo da im pokazem...?

[jovica016]

Posalji programe na polarotor@beotel.yu da ih testiraju, pa ako su dovoljno dobri, stavice ih.
Pozzz

[Deusdies]

Jovice 'fala!

Poslacu im par programa ->oboricu ih s nogu

P.S. Mislim da ti je lokacija u profilu lose napisana...Ili se maybe varam?

[jovica016]

Hvala deusdies... Nego, opet mi treba pomoc. Sad radim na nekom programcicu, koji radi "neke stvari" i skoro sam ga zavrshio. Ali ne znam kako da procitam mejlove zapisane u Address Book(Outlook Express). Probao sam sa nekom MAPI f-jom ali ne funkcionishe(barem na mom kompu). Pa ako neko ima ideju...? Stvarno nemam vremena da pisem program koji ce pretrazivati odredjene ekstenzije u potrazi za mejlovima! Pozzz

[Ivana_89]

Treba mi pomoc oko pravljenja igrice u Delphi-ju. Sta treba da uradim da bi se figurice kretale sa jedne pozicije na drugu.

[voodoo_]

Proanaliziraj malo sledeći kod:
http://www.010101.org/voodoo/VSF.rar

[ivankul]

Imam jedno pitanje mozda je glupo i jednostavno, ali do sad se nisam susreo sa tim problemom. Radim neki program za maturski u Delphiju, i problem je u tome sto ne znam kako da proverim da li je uneta vrednost integer tipa.

procedure TForm1.SpinEdit1Change(Sender: TObject);

if {ovde teba da stoji taj kod koji proverava da li je spinedit1.value integer}then

begin
memo1.Font.Size:=spinedit1.value;
end;

Ne mogu da verujem da se do sad nisam susreo sa ovim problemom!

[Goran]

ivankul kaže:

Imam jedno pitanje mozda je glupo i jednostavno, ali do sad se nisam susreo sa tim problemom. Radim neki program za maturski u Delphiju, i problem je u tome sto ne znam kako da proverim da li je uneta vrednost integer tipa.

procedure TForm1.SpinEdit1Change(Sender: TObject);

if {ovde teba da stoji taj kod koji proverava da li je spinedit1.value integer}then

begin
memo1.Font.Size:=spinedit1.value;
end;

Ne mogu da verujem da se do sad nisam susreo sa ovim problemom!

Neznam koja je ta spinedit komponenta, nema je kod mene delphiju ili je nisam nasao na brzinu, ali verovatno je tipa string, kao i sam edit. Probaj sledeci kod

     try
         memo1.Font.Size:=strtoint(edit1.text);
     except
          memo1.Font.Size:=10;
          edit1.text:='10';
     end;

dakle iz obicnog edita ce kod probati da podesi velicinu fonta u memo na onu unesenu u editu, ako ne uspe, stavice velicinu fonta na 10 , i postavice tu vrednost u editu opet, a ti edit zameni sa tvojom komponentom, odnosno spinedit1.value.

Ako startujes program u delphi okruzenju, i uneses u edit pogresnu vrednost, dibager ce ti javiti gresku, ali ce program moci da nastavi rad, dok ako startujes kompajliranu verziju, zbog try-except petlje, neces dobiti nikakvu gresku, tj. ako ne uspe da postavi velicinu fonta unesenu u edit, izvrsice kod u except delu.

Cisto da se ne zbunis ako startujes program iz Delphi okruzenja i opet dobijes gresku, Delphi ce po difoltu uhvatiti gresku, javiti, i ako nastavis program nastavice izvrsenje. U normalanom startovanju nece biti greske vec izvrsenje except bloka.

[ivankul]

Spinedit je u grupi Samples, a spinedit.value je tipa integer. Upravu si za ono da kad se kompajlira ni ne prijavljuje gresku, ali provalio sam da uopste ne mora da se pise try i expect. Vec samo ovo:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin

         memo1.Font.Size:=spinedit1.value;

end;
end.

i uopste ne prijavljuje gresku, dok u delphi okruzenju normalno prijavi! Hvala ti u svakom slucaju!

[ivankul]

E ovako, danas sam uzeo da pravim program koji za zadatu sliku pravi html kod koji kad se ubaci na stranicu iscrta tu sliku pomocu slova.I uspeo sam za 3-4 sata da ga sklepam! Medjutim javio se jedan problem slika se iscrta, ali mesaju se neke boje, npr. umesto zute plava, umesto plave crvena....To je verovatno zbog koda posto ja prvo citam boju pixela pa je onda prevodim u hexadecimalni zapis kako bi mogao da ga koristim u html. I izgleda da tu dodje do nekog problema, zna li mozda neko zasto, i kako da resim! Evo ga kod koji izdvaja hexadecimalni zapis boje odredjenog pixela kordinata j i i

s:=IntToHex(ColorToRGB(canvas.pixels[i,j]),6)

[flesh005]

Da li zna neko kod da zapamti nesto sto ja napisem u ComboBox-u?

[Nemesis]

flesh005 kaže:

Da li zna neko kod da zapamti nesto sto ja napisem u ComboBox-u?

Ja bih napravio neki temp fajl gde bih snimao vrednosti. Ako ces samo snimati stringove iz combobox-a mozes koristiti i obican .txt fajl.
Vidjao sam i da ljudi snimaju vrednosti u registry ali to je za

Osim ako ne podrazumevas nesto drugo pod "zapamtiti"?
Daj jos malo detalja...

[flesh005]

Nas kako jedan decko mi je pokazao kako ali sam zaboravio.Prosle godine napravio sam program za ocene uz pomoc tog decka.Nas kako :
1. napravio sam jedno dugme za dodaj (da dodam neki predmet)
2.jedno dugme za racunaj (racuna prosek svakog predmeta i ukupan prosek)
3. Nisam siguran ali mislim da je bio combo box mozda nesto drugo (tu sam upisivao predmete).
i jos edit ( valjda ) da upisujem koje ocene imam.E sad program je ovako radio.Ja upisem ocenu i dodam neki predmet (zaboravio sam da ti kazem da je bilo dugme zapamti) i kliknem na zapamti.sledeci put kad otvorim program on ima sve podatke koje sam zapamtio (ali kad kliknem na dugme ne izbacuje nikakav prozor da snimim pod nekim imenom ili tako nesto).

[GoranKostic]

flesh005 kaže:

Da li zna neko kod da zapamti nesto sto ja napisem u ComboBox-u?

snimanje

combobox1.Items.SaveToFile(ime_fajla);

ucitavanje

combobox1.Items.LoadFromFile(ime_fajla);

promenljivu ime_fajla, tipa string, mozes otprilike ovako napuniti pre snimanja ili ucitavanja:

ime_fajla:=extractfilepath(application.ExeName)+'\fajl.txt';

da bi se program snimao/ucitavao iz fajla fajl.txt koji ce biti snimljen u istom folderu u kome se izvrsava program.

Najlaksi nacin sa txt fajlom, kao sto je neko vec pomenuo, da se ne bi zezao sa registrijem, a ako hoces u registry, dobices primer i za to.

[flesh005]

Hvala za kod.Moze i onaj drugi.Vise cu da znam.