Új hozzászólás Aktív témák

• #1935 TAZ155 csendes tag

  Új Válasz 2013-03-17 19:21:21 #1935

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TAZ155

  csendes tag

  Üdv.

  A végén igy sikerült megoldanom.

  -------------------------------------------------------------------------------------------------------------------

  procedure TFom_ini.FormCreate(Sender: TObject);
  Var
  Z1 : Integer;
  F: TIniFile;

  // Adatok beolvasása

  begin
  F:=TIniFile.Create(ExtractFilePath(Application.Exename) +'gm300.ini' );
  With F do
  begin
  Edit2.Text:= ReadString('P_Config','Walue',Edit2.Text);
  Edit4.Clear;
  Edit4.Text:= ReadString('P_Config','Max',Edit4.Text);// a scroll max érték megadása

  end;

  // Scrollbar beállitásai
  // vízszintes görgetősáv beállítása, ez alapértelmezés

  ScrollBar1.Kind := sbHorizontal;

  // a görgetősávok határainak beállítása
  ScrollBar1.Min := 1;

  Z1:=StrtoInt(Edit4.text);
  ScrollBar1.Max := Z1;

  // a csúszka helyzetének beállítása
  ScrollBar1.Position := 1;
  // a "soronkénti" lépésnagyság beállítása
  ScrollBar1.SmallChange := 1;

  // az "oldalankénti" lépésnagyság beállítása
  ScrollBar1.LargeChange := 10;

  // a szövegmesők csak olvashatók
  Edit1.ReadOnly := true;

  // az ablak bal felső sarkának koordinátái
  Left := 200;
  Top := 100;

  end;

  -----------------------------------------------------------------------------------------------------

  A hibakezelést még odairom.

  A következő kérdésem az lenne hogy hogyan tudok PL: összeszorozni egész számot, nem egész számmal??

  133*0.66=??

  milyen megoldások vannak, az ilyen probléma megoldására??

  Hali

Új hozzászólás Aktív témák