Prikazi cijelu temu 10.11.2010 02:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Delphi - Funkcija Trim
Delphi - Funkcija Trim

Jedan od velikih problema za programere je trimovanje ulaznih stringova od strane korisnika programa. Ono sto se cesto desava je da korisnici nepaznjom unesu manji ili veci broj praznih mjesta, a vas program treba da operise sa takvim stringovima, npr. da ih uporedjuje. A Da bi popravili unos korisnika, Delphi obezbjedjuje tri funkcije:
Trim
TrimLeft
TrimRight
Zbog postojanja tri trim funkcije, ne morate povecavati kod da bi trimovali odredjeni string sa obje strane. Evo i primera primjene ove funkcije, na praznu formu postavite jedno dugme (Button) i jedan Listbox. I u proceduru dogadjaja OnClick dugmeta dodajte sledece redove:
PreuzmiIzvorni kôd (Delphi):
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.    S, Temp: string;
  4. begin
  5.    S := ?    Tekst   ?;
  6.    Temp := S;
  7.    S := Trim(S);
  8.    ListBox1.Items.Add(Temp);
  9.    ListBox1.Items.Add(S);
  10. end;
Pokrenite program i pritisnite dugme Button1, string konstanta sadrzi prazna mjesta i dodijeljena je varijabli S. Potom je vrednost varijable S dodijeljena drugoj string varijabli - Temp. Sledeci red uklanja prazna mesta sa pocetka i kraja stringa uz pomoc funkcije "Trim". U ovom trenutku, varijabla S vise nema praznih mjesta, a varijabla Temp ima. I u poslednja dva koraka dati stringovi se dodaju u Listbox, jedan ispod drugog, da bi vidjeli razliku.
___Tekst___
Tekst
Pokazat cemo i primer za funkciju "TrimRight":
PreuzmiIzvorni kôd (Delphi):
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.    S, Temp: string;
  4. begin
  5.    S := ?   Tekst   ?;
  6.    Temp := S;
  7.    S := TrimRight(S);
  8.    ListBox1.Items.Add(Temp);
  9.    ListBox1.Items.Add(S);
  10. end;
Kao izlaz dobit cemo string sa cije desne strane su uklonjena tri prazna mjesta:
___Tekst___
___Tekst
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.