Witam. Ostatnio napisalem taki prosty konwerter jednostek w Pascalu. Chcialem go napisac w Delphi ale nie wiem jakich uzyc do tego komponentow. Czy ktos moglby mi doradzic jak to zrobic, nie chce kodu tylko rady jak to ulozyc bo tego nie moge pojac. Z gory dziekuje za odpowiedz, dodaje zalacznik z kodem konwertera w Pascalu.
Najpierw przyglądnij się gotowym konwerterom, następnie przeglądnij pasek komponentów w swoim IDE i poznaj je bliżej - potem możesz się zastanawiać której wybrać;
Masz trzy grupy:
Delphi TPageControl) i na każdej z nich postawić po dwa TComboBox do wybrania jednostek - z jakiej jednostki na jaką odbędzie się przeliczanie; Na każdej zakładce tworzysz także pola do wpisania wartości, przycisk do konwertowania oraz pole do przedstawienia wyniku (albo wyświetlasz wynik w polach, w których wpisuje się dane); Możesz też dodać przycisk do odwrócenia jednostek - jeśli masz ustawione z metrów na kilometry to po wciśnięciu tego przycisku zamienia wartości w ComboBoxach i wychodzi z kilometrów na metry;Możliwości jest wiele, więc sam musisz wybrać te, które uznasz za stosowne.
Kod który napisałeś jest STRASZNY.
1.Miliard procedur od konwersji - w jakim celu osobna do każdej formy konwersji?
2.Drabinki if-ów zamiast np.instrukcji case (ja bym się pokusił o tablicę wskaźników na kolejne funkcje, ale to jest rozwiązanie bardziej zaawansowane).
3.SysUtils oraz Windows chyba są niepotrzebne w tym programie.
4.Ogólne łamanie zasad DRY oraz KISS.
Ot cała filozofia:
const WTable:array[0..4] of record Name:String; Mul:Double; end=
(
(Name:'mg';Mul:0.000001),
(Name:'g';Mul:0.001),
(Name:'dg';Mul:0.1),
(Name:'kg';Mul:1),
(Name:'t';Mul:1000)
);
for I:=Low(WTable) to High(WTable) do ComboBox1.Add(WTable[I].Name);
for I:=Low(WTable) to High(WTable) do ComboBox2.Add(WTable[I].Name);
Edit2.Text:=FloatToStr(StrToFloat(Edit1.Text)/WTable[ComboBox1.ItemIndex]*WTable[ComboBox2.ItemIndex]);
Przemyslalem wasze rady i napisalem sobie taki kod ale znowu mam problem bo wyswietla sie blad
" Record, object or class type required "
var
wartosci : record
wartosc1 : real;
wartosc2 : real;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
wartosc1, wartosc2, wynik : real;
ile : integer;
begin
case ComboBox1.ItemIndex of
0 : wartosc1 := 0.01;
1 : wartosc1 := 0.1;
2 : wartosc1 := 1;
3 : wartosc1 := 1000;
end;
begin
case ComboBox2.ItemIndex of
0 : wartosc2 := 0.01;
1 : wartosc2 := 0.1;
2 : wartosc2 := 1;
3 : wartosc2 := 1000;
end;
begin
Ile := StrToInt(Edit1.Text);
wynik := ile*Wartosci.wartosc1*wartosci.wartosc2;
Edit2.Text := FloatToStr(wynik);
end;
end.
zmienna wartosci dodalem jak zobaczylem ten komunikat o bledzie, bo na poczatku sprobowalem tak jak napisal _13th_Dragon
Masz namieszane w tych blokach case .. of:
case ComboBox1.ItemIndex of
0 : wartosc1 := 0.01;
1 : wartosc1 := 0.1;
2 : wartosc1 := 1;
3 : wartosc1 := 1000;
end;
begin
case ComboBox2.ItemIndex of
0 : wartosc2 := 0.01;
1 : wartosc2 := 0.1;
2 : wartosc2 := 1;
3 : wartosc2 := 1000;
end;
begin
Ile := StrToInt(Edit1.Text);
wynik := ile*Wartosci.wartosc1*wartosci.wartosc2;
Edit2.Text := FloatToStr(wynik);
end;
brakuje jednego end (niepotrzebny begin po pierwszym bloku case .. of);
EDIT: Poza tym wariant z tablicami podanymi przez @_13th_Dragon jest lepszy, bo likwiduje dwa bloki case .. of.