Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoc oko Delphi-a

[es] :: Pascal / Delphi / Kylix :: Pomoc oko Delphi-a

[ Pregleda: 2422 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

errorie035
Ucenik
Jagodina

Član broj: 275075
Poruke: 5
*.dynamic.isp.telekom.rs.



+1 Profil

icon Pomoc oko Delphi-a13.12.2010. u 22:43 - pre 161 meseci
Imam problem oko resavanja jednog dela zadatka iz knjige za 4. razred Gimnazije.U zadataku se izmedju ostalog trazi se da na prazno mesto izmedju reci koje su unete u edit box postavi _

[Ovu poruku je menjao errorie035 dana 14.12.2010. u 00:36 GMT+1]
 
Odgovor na temu

Aleksandar Đokić

Član broj: 13478
Poruke: 4793
*.dynamic.isp.telekom.rs.



+638 Profil

icon Re: Pomoc oko Delphi-a14.12.2010. u 00:14 - pre 161 meseci
mnogo lako... bar sa delphi-jem,

Code:
var  s,s1,s2: string;
i: integer;
begin
s := edit1.text;
s1 := '';
s2 := '';
   for i := 1 to length(s) do
   begin
    if s[i] = ' ' then
    s1 := '_'
    else
    s1 := s[i];
  s2 := s2 + s1;
  end;
edit1.text := s2;
end;


i to mora da radi

[Ovu poruku je menjao guslac dana 14.12.2010. u 01:26 GMT+1]
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Pomoc oko Delphi-a14.12.2010. u 02:43 - pre 161 meseci
Ili jos krace:

Code:

var
  s : String;
begin
  s := Edit1.Text;
  While Pos(' ', s) > 0 Do
    s[Pos(' ', s)] := '_';
  Edit1.Text := s;
end;
 
Odgovor na temu

salaczr

Član broj: 160654
Poruke: 103
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: Pomoc oko Delphi-a14.12.2010. u 07:51 - pre 161 meseci
Ili jos krace:

Code:


Edit1.Text := StringReplace(Edit1.Text, ' ' , '_', [rfReplaceAll]);



pozdrav
 
Odgovor na temu

errorie035
Ucenik
Jagodina

Član broj: 275075
Poruke: 5
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko Delphi-a14.12.2010. u 11:58 - pre 161 meseci
Hvala puno svima na informacijama.Verujem da je lako za vas iskusnije ali sam ja tek od skora poceo da se radim u delphi-u ,sem knjige nemam neku pomoc jer je moj profesor prilicno nezainteresovan da pomogne i objasni.Inace ja sam 3. godina informatickog smera ,a predmet programiranje mi je jako bitan za moje dalje skolovanje .Hvala jos jednom na pomoci.Pozdrav
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Pomoc oko Delphi-a14.12.2010. u 13:31 - pre 161 meseci
> Hvala puno svima na informacijama.Verujem da je lako za vas iskusnije ali sam ja tek od skora poceo da se radim u delphi-u ,sem knjige nemam neku pomoc jer je moj
> profesor prilicno nezainteresovan da pomogne i objasni.Inace ja sam 3. godina informatickog smera ,a predmet programiranje mi je jako bitan za moje dalje skolovanje .

Dobrodošao u Delphi svet, svi smo mi nekad bili početnici tako da se nemoj ustručavati ako ti nešto nije jasno, pitaj. BTW moj savet za knjigu je edicija Delphi za 21 dan.
 
Odgovor na temu

errorie035
Ucenik
Jagodina

Član broj: 275075
Poruke: 5
*.dynamic.isp.telekom.rs.



+1 Profil

icon Re: Pomoc oko Delphi-a15.12.2010. u 23:39 - pre 161 meseci
Imam jos problema vezanih za program,program treba ovako da radi:


Uploaded with ImageShack.us

imam 2 problema: 1. ako cekiram prvi i drugi checkbox ne izbacuje bbr_bkb_dbb_rb vec samo abr_aka_dab_ra a
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
Edit3.Text := StringReplace(Edit1.Text, 'a' , 'b', [rfReplaceAll]);
end;
if checkbox2.Checked then
begin
Edit3.Text := StringReplace(Edit1.Text, ' ' , '_', [rfReplaceAll]);
end;
end;
end.
2.Kako da odredim broj zamena kada su oba cekirana i kada je samo jedan cekiran? (probao sam sa nizovima ali bez uspeha)
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Pomoc oko Delphi-a16.12.2010. u 03:22 - pre 161 meseci
> imam 2 problema: 1. ako cekiram prvi i drugi checkbox ne izbacuje bbr_bkb_dbb_rb vec samo abr_aka_dab_ra a
> Edit3.Text := StringReplace(Edit1.Text, ' ' , '_', [rfReplaceAll]);

Ovde uzimaš ponovo originalni tekst tako da se promene a -> b gube. Uvedi još jednu promenljivu, npr:

Code:

var
  Temp: string;
begin
  Temp := Edit1.Text;
  if PrviUslov then
    Temp := StringReplace...

  if DrugiUslov then
    Temp := StringReplace...

  Edit3.Text := Temp;
end;



> 2.Kako da odredim broj zamena kada su oba cekirana i kada je samo jedan cekiran? (probao sam sa nizovima ali bez uspeha)

Moraš izbrojati koliko puta se pojavljuje "a" i koliko puta " ", Delphi nema neku takvu gotovu funkciju pa moraš sam napisati ili koristiti third party rešenje recimo Jedi Code Library (JCL) i JclStrings unit.

 
Odgovor na temu

salaczr

Član broj: 160654
Poruke: 103
*.dynamic.isp.telekom.rs.



+5 Profil

icon Re: Pomoc oko Delphi-a16.12.2010. u 07:34 - pre 161 meseci
Mozda ovako:

Code:

  var
  Temp: string;
  i : integer;
begin
  Temp := Edit1.Text;
  
  for i := 1 to StrToInt(Edit_BrojPonavljanja.Text) do
    begin
       if PrviUslov then
         Temp := StringReplace(Edit1.Text, 'a' , 'b', []);  // izostavis rfReplaceAll

       if DrugiUslov then
         Temp := StringReplace(Edit1.Text, ' ' , '_', []);  // izostavis rfReplaceAll
    end; 
  Edit3.Text := Temp;
end;


Ukoliko izostavis ReplaceFlag u StringReplace funkciji odradice samo jednom, odnosno onoliko puta koliko se for petlja vrti.

pozdrav
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Pomoc oko Delphi-a

[ Pregleda: 2422 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.