- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Autóhifi
- Milyen egeret válasszak?
- HTPC (házimozi PC) topik
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- LG LCD és LED TV-k
- RAM topik
- A régi node-okra koncentrál a szankciók miatt Kína
- Amlogic S905, S912 processzoros készülékek
- TCL LCD és LED TV-k
Hirdetés
-
Toyota Corolla Touring Sport 2.0 teszt és az autóipar
lo Némi autóipari kitekintés után egy középkategóriás autót mutatok be, ami az észszerűség műhelyében készül.
-
Robotkart irányított a majom a kínai Neuralink agyi chipjével
it A mindezt lehetővé tévő Neucybert a Neuralink kínai riválisa, a Beijing Xinzhida Neurotechnology fejlesztette ki.
-
Premier előzetesen a Demon Slayer -Kimetsu no Yaiba- Sweep the Board!
gp Elérhető lett Switch-re a játék, amely leginkább a Mario Party-hoz hasonlítható.
Új hozzászólás Aktív témák
-
TAZ155
csendes tag
Üdv mindenkinek.
Delphi 2005 vagy Delphi 7.--------kategória.
Fájlt szeretnék töröltetni delphi alatt.
Kritérium, van egy Edit7.text-em amiben megjelenik a törölendő fájl neve.
A megjelenités megvan oldva, az Edit7.text-ben.
Csak fájltőrlésre nem találtam leirást.
Hogyan tudok fájlt töröltetni hogyha a fájlnevet egy Edit7.text-be adom meg??
Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
válasz
Gyuri16
#1861
üzenetére
Üdv.
Nos nekem ez a törlés éppen megfelelne.
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile('FILE.MDX');
end;end.
Csak hogy a fájlnevet, amit törölni szeretnék azt egy edit7.text-ben adom meg.
Bármi lehet bejegyzéstől függően.A program leirása.
Van egy listbox-om amiben vezetek egy listát.
A listába amikor hozzáadok egy bejegyzést, akkor abban a pillanatban létrehoz egy fájlt
a vinyón a programom.A bejegyzés neve = a létrehozott fájl nevével.
Pl:
A listához hozzáadtam a Mario... bejegyzést akkor a vinyón létrehozok egy Mario.tr1-fájl.De ha én a listából tőrlöm a Mario bejegyzést akkór törölni kellene a Mario.tr1 fájlt is.
A listában sok másnéven szereplő bejegyzések is vannak.A törlendő fájlnevet már ki iratom a kijelőlés pillanatában egy edit7.text-be.
Na ilyen jellegű fájltörlésről lenne szó.
Tehát ez nekem jó lenne, csak nem ilyen fórmában.DeleteFile('FILE.MDX');
Amúgy nemrégen kezdtem programozni Delphi 7 Lite változat alatt.
Jó könyvet meg sajnos nem találtam Delphi-hez.
Tehát ez az én olvasatom szerint igy nézne ki.
procedure TForm1.Button1Click(Sender: TObject);
Var
x: integer;begin
x:=StrtoInt(Edit1.Text);
DeleteFile('x');
end;end.
Tudom ez egy nagy hülyeség amit irtam, de a könyvekben semmi nincsen szinte ami használható lenne.
Sok esetben ez a megoldás münködni szokott.Deklarált változók kellenének????? x$...stb
Ösrégen Basic-ben programoztam egy kicsit, nameg ASM-ben.
De csak nagyon kezdő szinten.Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
válasz
Gyuri16
#1863
üzenetére
Üdv Gyuri16.
Köszönöm a segitséget, ez a megoldás jó vólt nekem arra a célra amire kelett.
Idézet:
DeleteFile(Edit1.Text);
Sikerült a saját, megirt szoftverembe alkalmazni.
Jól műnkődik.
Egyébként a DOSBOXPortable változathoz irtam, igény szerint egy Grafikus felületet, szoftvert.
Ha téged érdelel, elküldöm neked privátban az egészet forrással együtt.
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban.
Hali.
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Sziasztok.
Gondolom a megoldás igen egyszerű lessz.
A következő kérdésem az lenne hogy.....Adott egy Then, Else ággal megirt feltétel.
A Forrás:
unit szamol;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
varZ1,Z2 : Integer ;
begin
begin // Feltétel irás
// integráljuk az z1, z2-es értéket
Z1:=StrtoInt(Edit1.text); // hivatkozás a cellá-ra
Z2:=StrtoInt(Edit2.text);if ( z1 = z2 )
// ha z1 egyenlő z2-értékével akkor
// akkor then-ág lép érvényben.then
begin
ShowMessage ( 'Az értékek MEG eggyeznek ' )
end// ha z1 NEM egyenlő z2-értékével akkor
// akkor az else-ág lép érvényben.else
begin
ShowMessage ( 'Az értékek NEM eggyeznek meg ' )
end ;end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;end.
A program vége.
Alap állapotban a Delphi csak a számokat ismeri fel. (1,2,3 stb)
Melyik a helyes módja, hogy rá tudjuk beszélni hogy a betü karaktereke is gond nélkűl kezelje.
Meglátásom szerint , de ez csak az én véleményem.1. megoldás.
A Betű karakterekből ASCII értéket csinálunk.( Tehát szám érték lessz a végeredmény)
Hogyan????
2. megoldás
A programozzunk Delphi 7 rendszerben cimű könyv szerint lehet integrálni a karakter készletet, és onnantól kezdve már nem okoz gondot hogy Betűt,vagy számot irunk be a programnak. Ezt a megoldást meg nem sikerült felélesztenem.
Hogyan????Ebben kérnék segitséget, infót.
Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Sziasztok.
Soros port programozásban kérnék egy kis segitséget tölletek.
A port (rs232) rövid leirása:
Nos ami a legfontosabb ezzel kapcsolatban, hogy a serial port nem TTL, CMOS feszültségszintekkel dolgozik, hanem felszültséglogikával.
Ez azt jelenti, hogy a kimeneten megjelenő logikai '1' szint +5 - +12V közötti feszültségértékeket vehet fel, a loikai '0' szint pedig -5 - -12V közötti értékeket vehet fel.Leirás vége.
Haladjunk lépésről, lépésre.
Gondolom meg kell határozni hogy melyik port legyen aktiv. ( COM1 )
Gondolom én hogy szükségünk lesz a port cimekre. ( De pin szerint mik is ezek?)
Nekem az is elég,egyenlőre hogy át tudjam billenteni az alapban 0-ás Logikai
értékü pint, 1-es értékre.! A példa kedvé ért legyen a COM1-en, az 1-es pin( Data Carrier Detect ) !
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
progi vége.
Ezután a port 1-es logikai értéken marad.
Ezt le kellene zárni.Biztosan valami ilyesmi lesz a megoldás: (Com1close
Hai
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
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.InstallNa 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
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Üdv zka67.
Köszönöm a leirást, de a hiba üzenet megmaradt sajnos.
!!Error message ablak.
This version is not licensed to load third-party component or IDE addins.
Nem értem.
Megnézem egy másik delphi alatt a csopmagot, hátha felmegy.
A soros port.
[link]Végül is nekem, először az is elég lenne hogy ha a COM1-en
a 3F8H-cimen az RTS lábra valahogyan kikerülne a Tápfesz.
Ezen a csatlakozót a hardver táp-ellátáshoz kell csak.D egyenlőre keresek egy másik delphit, ami alá fel tudom telepiteni a csomagot.
Azért köszi a segitséget.
Hali.
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Igen tudom.
Nekem max 5V 2mA kell róla.
Most olyan megoldást keresek, a soros port kezelésre amit igy csomagként nem kell telepiteni.
Elég csak bemásolni egy *.pas-fájlt a delphibe, és elég egy Dll-t bemásolni az exe mellé.
LPT-hez van, gondolom soros port-hoz is van már ilyen megoldás.
Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
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
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Sziasztok.
Abban szeretném a segitségeteket kérni , hogy hogyan lehet megadni a ScrollBar max értékét .
A max értéket Edit4.text-be lenne megadva.ScrollBar1.Max := 126 ;
De nekem ennek az értékét Edit4.text-ből kéne állitanom.
Mi a helyes megoldás??ScrollBar1.Max := Edit4.text ;
Sok megoldást kipróbálatam, de eggyik sem münködött.
Köszi.
Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
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ásaend;
// Scrollbar beállitásai
// vízszintes görgetősáv beállítása, ez alapértelmezésScrollBar1.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
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
sziasztok.
Nos mind a két variációt megnéztem.
-------------------------------------------------------------------------------------------------
procedure TFom_ini.Button2Click(Sender: TObject);
var
z1,z2 :Integer;begin
z1:=StrtoInt(Edit1.text);
z2:=StrtoInt(Edit2.text);
Edit3.text:=FloatToStr(z1*z2);end;
end.// igy hibaüzenetet kapok a delphi-től.
-------------------------------------------------------------------------------------------------
Ez igy önmagában münködik.
Edit3.Text := FloatToStr(126*0.039);De hogyan kell átalakitani, hogy Edit.text-esetében jó legyen.
Több megoldást kipróbáltam, de a hibaüzenet maradt.
A végén a z1 és z2 értéket szeretném összeszorozni.
Kipróbáltam ezt a megoldást is.
Edit3.Text := FloatToStr(ScrollBar1.Position*0.039);Majdnem megfelel nekem, és egyszerűbb.
De a 0,039-helyére nekem az Edit2.text-et kéne beirnom, a részadatod amit a végén beszorzom,
onnan venném.Edit3.Text := FloatToStr(ScrollBar1.Position*0.039); ebben az esetben hogyan hivatkozom az Edit2.text-re??
Scrollbar1 értékét (Edit1.text) szorzom Edit2.text értékével.
Az az---------------------------------------------------------------------------------------------
procedure TFom_ini.Button2Click(Sender: TObject);
begin
// Scrollbar értéke szor Edit2 = Edit3.textEdit3.Text := FloatToStr(ScrollBar1.Position*Edit2.text);
end;
-----------------------------------------------------------------------------------------------------
Helyesen hogyan kell hivatkozni Edit2.text-re ebben az esetben??Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Szia.
--------------------------------------------------------------------------------------
var
z2 :Integer;begin
z2:=StrtoInt(Edit2.text);
Edit3.Text := FloatToStr(ScrollBar1.Position*z2);end;
---------------------------------------------------------------------------------
A hiba üzenet ebben az esetben
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
