przeliczanie jednowstek

0

jestemn bardzo poczatkujacy w delphi i nie mam zabardzo pomysłu na jaknpisać przeliczanie jednostek np. kilometry na metry
prosilbym o przyklad a z innymi jednostkami ja juz sobie sam sprobuje napisac

0

1.Ten post powinieneś napisać w dziale Newbie, bo jesteś początkujący.
2. Poczytaj o typach danych: całkowite, rzeczywiste itd.
3. Zagłądaj tutaj do FAQ, artykułów itd.

Tu naskrobałem prosty przykład jak zamienić kilometry na metry.

//zamiana kilometrów na metry
procedure TForm1.Button1Click(Sender: TObject);
var
   a,b,wynik: real; //typ danych - rzeczywisty [real]
begin
   a:=StrToFloat(Edit1.Text); //nasze kilometry w Edit1
   b:=1000; // metry wyświetlą się w Edit2
   wynik:=a * b; //mnożymy zmienną a i b [kilometry razy metry]

{podajemy wynik zamiany w Edit2 z
dokładnością 2 miejsca po przecinku i granicą błędu = 6}
Edit2.Text:=FloatToStrF(wynik, fffixed,6,2);
end;

Spójrz na ten kod. Zresztą i tak nie wiem czy jeszcze tu przyjdziesz :)

0

okey sorki ;)

0

Dział download, kompletne aplikacje, calculus. Jest to dosyc rozbudowany program z wieloma przelicznikami. Ściągnij sobie.

0

thx chłopaki
jutro nad tym pomysle bo cos mi błedy wywala

1 użytkowników online, w tym zalogowanych: 0, gości: 1