Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 7 odgovora
  • 2.049 pregleda

Najnovija ↓

Pomoc oko tipa podataka 13.02.2012. u 10:49 · pre 179 meseci #1
Pozdrav svima,
Pokusavam da pomnozim dva broja iz dva Edita. to mi radi kada su celi brojevi u pitanju ali nikako nece kad su decimalni brojevi, ne znam koji tip podatka da stavim. Molim za pomoc.
Pozdrav.
Re: Pomoc oko tipa podataka 13.02.2012. u 11:24 · pre 179 meseci #3
Problem mi je kad pretvaram string to extender!
Kako to da resim, evo kako sam ja pokusao
Var ukupno: extended;
begin
ukupno:= (StrToFloat(edit10.Text) * StrToFloat(Edit8.Text));
Label3.Caption:= FloatToStr(ukupno);
end;

Re: Pomoc oko tipa podataka 13.02.2012. u 12:33 · pre 179 meseci #4
Pa reci u cemu je problem, jel izbacuje los rezultat ili kompajler javlja neku gresku ?

Meni ovo radi:

Code:

var
  a, b : Extended;
begin
  a := 1.13215;
  b := 1.54456;
  Label1.Caption := FloatToStr(a * b);
end;


U svakom slucaju, probaj sa Real ili Double umesto Extended.
Re: Pomoc oko tipa podataka 13.02.2012. u 14:22 · pre 179 meseci
izmenjeno 1 put, poslednji put saladin2809 13.02.2012. u 14:48
  1. saladin280913.02.2012. u 14:48zapis iz teksta poruke
#6
Ako moze samo jos nesto.
Pokusavam da povezem dva uslova:
Za prvi uslov sam uradio QUERY a drugi uslov mi se nalazi u polju EDIT.
Moze li neka pomoc kako da povezem ova dva uslova, da mi broj dobijen u QUERY uporedi sa brojem koji se nalazi u EDIT polju.
Pozdrav/

evo i kako je kod mene

QArtikli.Close;
QArtikli.SQL.Clear;
QArtikli.SQL.Add('select *');
QArtikli.SQL.Add('from artikli');
QArtikli.SQL.Add('where artikli.faktura') //e sad ovde trebam da stavim text iz edit polja.
QArtikli.Open;
Re: Pomoc oko tipa podataka 13.02.2012. u 23:53 · pre 179 meseci #7
Code:

SelectSQL.Text := 'select polje from tablica where trazim_polje = ' + QuotedStr(Edit1.Text);


ili još bolje:

Code:

SelectSQL.Text := 'select polje from tablica where trazim_polje = :param';
Params[0].AsString := Edit1.Text;
Potpis
F
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme