Pomoc oko Delphi-a

Pomoc oko Delphi-a 13.12.2010. u 23:43 · pre 193 meseca #1

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 _

Re: Pomoc oko Delphi-a 14.12.2010. u 01:14 · pre 193 meseca #2

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

Re: Pomoc oko Delphi-a 14.12.2010. u 03:43 · pre 193 meseca #3

Ili jos krace:

Code:

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

Re: Pomoc oko Delphi-a 14.12.2010. u 08:51 · pre 193 meseca #4

Ili jos krace:

Code:

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

pozdrav

Re: Pomoc oko Delphi-a 14.12.2010. u 12:58 · pre 193 meseca #5

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

Re: Pomoc oko Delphi-a 14.12.2010. u 14:31 · pre 193 meseca #6

> 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.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Pomoc oko Delphi-a 16.12.2010. u 00:39 · pre 193 meseca #7

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)

Re: Pomoc oko Delphi-a 16.12.2010. u 04:22 · pre 193 meseca #8

> 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.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Re: Pomoc oko Delphi-a 16.12.2010. u 08:34 · pre 193 meseca #9

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

Forum kao aplikacija na telefonu

Srodne teme