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

• #1945 oleslie aktív tag TAZ155 #1944

  Új Válasz 2013-03-22 00:56:23 #1945

  Ú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

  

  oleslie

  aktív tag

  válasz TAZ155 #1944 üzenetére

  0.039 nem egész (int) szám, te pedig akként akarod értelmeztetni. strtofloat a barátod, de ezt zka megírta korábban.

• #1943 zka67 őstag TAZ155 #1941

  Új Válasz 2013-03-22 00:31:50 #1943

  Ú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

  

  zka67

  őstag

  válasz TAZ155 #1941 üzenetére

  Így:

  procedure TFom_ini.Button2Click(Sender: TObject);
  var z1,z2 : Real;
  begin
  DecimalSeparator := '.';
  z1 := StrToFloat(Edit1.text);
  z2 := StrToFloat(Edit2.text);
  Edit3.text := FloatToStr(z1*z2);
  end;

  A DecimalSeparator értéke határozza meg, hogy tizedespontot vagy tizedesvesszőt fogadjon el.
  A hibakezelést majd ne felejtsd el hozzáadni (try ... except),

  procedure TFom_ini.Button2Click(Sender: TObject);
  var z1,z2 : Real;
  begin
  DecimalSeparator := '.';
  try
  z1 := StrToFloat(Edit1.text);
  z2 := StrToFloat(Edit2.text);
  except
  on E: Exception do { Hibakezelés }
  end;
  Edit3.text := FloatToStr(z1*z2);
  end;

  vagy használd a Val funkciót.

  procedure TFom_ini.Button2Click(Sender: TObject);
  var z1,z2 : Real;
  e : integer;
  begin
  DecimalSeparator := '.';
  Val(Edit1.Text, z1, e);
  if e > 0 then begin
  { Hibakezelés, pl. z1 := 1; vagy Exit; }
  end;
  Val(Edit1.Text, z2, e);
  if e > 0 then begin
  { Hibakezelés, pl. z2 := 1; vagy Exit; }
  end;
  Edit3.text := FloatToStr(z1*z2);
  end;

• #1942 oleslie aktív tag TAZ155 #1941

  Új Válasz 2013-03-22 00:09:05 #1942

  Ú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

  

  oleslie

  aktív tag

  válasz TAZ155 #1941 üzenetére

  1., mi a hibaüzenet?
  2., most nem indítok ezért delphi -t, de int x int != float

• #1936 zka67 őstag TAZ155 #1935

  Új Válasz 2013-03-18 00:34:53 #1936

  Ú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

  

  zka67

  őstag

  válasz TAZ155 #1935 üzenetére

  Így: Delphi float to integer conversions

  Pl:

  var i : integer;
  
  i := Round(133 * 0.75);

• #1934 zka67 őstag TAZ155 #1933

  Új Válasz 2013-03-17 15:16:56 #1934

  Ú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

  

  zka67

  őstag

  válasz TAZ155 #1933 üzenetére

  Szia, így:
  try
  ScrollBar1.Max := StrToInt(Edit4.Text);
  except
  on E: Exception do { hibakezelés };
  end;

• #1885 TAZ155 csendes tag TAZ155 #1884

  Új Válasz 2011-10-17 00:56:35 #1885

  Ú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

  válasz TAZ155 #1884 üzenetére

  Sziasztok.

  Megoldottam a soros port komponens feltelepitését, másik delphi alatt.

  ComPortLibary 4.11C ( Dejan Crnila)-Komponens.

  És most már hogy ezt fel tudtam rakni,
  a kérdésem az lenne leső lépésben hogy hogyan lehet meghivni a soros port -ot manuálisan.
  Be épitett Comport componens nélkül.

  A fix portbeállitásokat majd egy fájlban fogom tárolni.

  A második lépés, hogy a Pin-ek közötti cimzés, meghivás hogyan is müködik.

  Ezt a táblázatot találtam eddig.

  [link]
  Ez a táblázat használható??

  Hali

• #1883 zka67 őstag TAZ155 #1882

  Új Válasz 2011-10-15 21:12:27 #1883

  Ú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

  

  zka67

  őstag

  válasz TAZ155 #1882 üzenetére

  Oké, értem. De miért nem szerzel be egy normális Delphi-t?

  LPT írás-olvasás megszűnt a Windows 7-től kezdve. Nem férsz hozzá a porthoz.

• #1881 zka67 őstag TAZ155 #1879

  Új Válasz 2011-10-15 18:13:31 #1881

  Ú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

  

  zka67

  őstag

  válasz TAZ155 #1879 üzenetére

  A soros port nem Paks! Néhány mA-rel tudod csak terhelni ( <5 mA ).

• #1880 fatal` titán TAZ155 #1879

  Új Válasz 2011-10-15 18:02:37 #1880

  Ú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

  

  fatal`

  titán

  válasz TAZ155 #1879 üzenetére

  A telepített verzióval nem fogsz harmadik féltől származó komponenst vagy kiegészítőt telepíteni, mert nincsen rá liszenszed.

• #1878 zka67 őstag TAZ155 #1877

  Új Válasz 2011-10-14 23:49:07 #1878

  Ú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

  

  zka67

  őstag

  válasz TAZ155 #1877 üzenetére

  Először megnyitod a CPortLibD2006.dpk fájlt, lefordítod (Alt-P B).
  Utána megnyitod a DsgnCPortD2006.dpk fájlt, azt is lefordítod.
  Utána Install Packages, megkeresed a CPortLibD2006.bpl fájlt és telepíted.
  Ennyi.

  Hozzátennék még annyit, hogy a soros port nem egészen úgy működik, ahogy te azt elképzelted. Neked nem kell biteket röcögtetned benne, bízd azt a hardverre, azért van.

  Javaslom, hogy előbb olvasgass utána a soros port működésének.

• #1877 TAZ155 csendes tag TAZ155 #1876

  Új Válasz 2011-10-13 21:29:36 #1877

  Ú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

  válasz TAZ155 #1876 üzenetére

  Sziasztok.

  Annyit sikerült kideritenem hogy fel kell telepiteni egy csomagod delphi alá.

  A fájl neve: comport411c.zip

  Ebben a zipben található a soros port kezeléséhez a telepitő csomag.

  Megpróbáltam feltelepiteni Turbo delphi 2006-alá, de hibaüzenet-et kaptam.

  A telepitési sorrend.

  1. Turbo Delphi elinditása.
  2. Open Project. (itt kiválasztjuk a neküknk szükslges fájlt.)
  3. Source\CPortLibD2005.lib ..... gondolom én...
  4. megnyitás
  5.jobboldalt a Project Managerbe CPortLib2005.bpl-re egér jobb klik.
  6.Install

  Na ezután én hibaüzenet-et kapok a Turbo Delphi 2006-tól.

  Hiba üzenet.

  Error message ablak.
  This version is not licensed to load third-party component or IDE addins.

  Nagyjából a magyar forditás.
  Ennek a verziónak nem engedélyezik, hogy betöltse a harmadik félhez tartozó összetevőt vagy IDE addins.

  Tehát nem lehet alátelepiteni??
  csak kicsit értek angolul.

  Hali

• #1868 Gyuri16 senior tag TAZ155 #1867

  Új Válasz 2011-03-22 23:20:31 #1868

  Ú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

  

  Gyuri16

  senior tag

  válasz TAZ155 #1867 üzenetére

  delphiben charbol az ascii kodjat az ord fuggvennyel lehet megtudni, forditva pedig a chr fuggvennyel.

  ha csak ossze akarod hasonlitani a ket edit tartalmat, akkor azt csinalhatod egyszeruen stringekkel (az edit.text egy stringet ad vissza). tehat ilyen if mukodik:
  if edit1.text = edit2.text then valami
  vagy elmentheted ezek tartalmat egy string tipusu valtozoba es csinalhatsz vele valami bonyolultabbat.

  ezt az integralas dolgot nem teljesen ertem, ebben a kontextusban nem hasznaltam meg ezt a kifejezest..

  masik dolog a programodban az application.terminate. szerintem hasznalj helyette close-t. utobbi vegulis meghivja az application.terminate-t viszont elotte vegrehajtodik az onClose event, amit tobbnyire akarsz (mar ha irtal hozza fuggvenyt ami lekezeli). szerintem mindenesetre szebb megoldas, raadasul leirni is rovidebb.

  legkozelebb a forraskodot amit ide beillesztesz tedd programkod blokkba (a hsz irasakor lent katt a programkod gombra), ugy jobban olvashato.

• #1863 Gyuri16 senior tag TAZ155 #1862

  Új Válasz 2011-03-14 17:49:46 #1863

  Ú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

  

  Gyuri16

  senior tag

  válasz TAZ155 #1862 üzenetére

  az edit1.text egy stringet ad vissza. a DeleteFile pedig egy stringet var parameterkent, igy mukodnie kellene:

  procedure TForm1.Button1Click(Sender: TObject);
  begin
  DeleteFile(Edit1.Text);
  end;

  itt nem art meg ellenorizni mivel ter vissza a fuggveny (sikerult e a torles) illetve hogy mi van az edit1.textben

• #1861 Gyuri16 senior tag TAZ155 #1860

  Új Válasz 2011-03-14 11:12:08 #1861

  Ú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

  

  Gyuri16

  senior tag

  válasz TAZ155 #1860 üzenetére

  attol fugg mit ertesz torles alatt. ha magat a fajlt akarod eltavolitani akkor a SysUtils unitban levo DeleteFile fuggvenyt hasznald. ha csak a tartalmat akarod torolni akkor a System unitban levo Erase-t nezd meg.

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