- btz: Internet fejlesztés országosan!
- gban: Ingyen kellene, de tegnapra
- Gurulunk, WAZE?!
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- Klaus Duran: Youtube AI szinkron
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Hirdetés
Új hozzászólás Aktív témák
-
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.
-
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
-
dany27
őstag
válasz
Gyuri16
#1836
üzenetére
nem formon kívülről babrálom!
Hanem van 3 olyan textbom amit egyformán kell elenőríznem a keypress eventnél így gondoltam hogy írok rá egy eljárást amit meghívok mind3 keypressnél és akkor így nem kell feleslegesen 3* ugyan azt leírnom.Csak valamiért azt mondja pl a tb_x.text-re hogy ez nem deklarált változó.... Pedig ugyan azon a formon belül van!
Am vissza térve az MSG-re. Az a gond hogy a beillesztésnek nem tudom milyen MSG-je van!
-
dany27
őstag
válasz
Gyuri16
#1827
üzenetére
Delphi 7 Enterprise. Am nem onenter-re gondolsz? Mert onmouseenter nincs az eventek közt! Onenter meg másként funkcionál.. Az nem azt figyeli hogy felette van-e az egér hanem az elem tab-ját. Lehet én vagyok szerencsétlen de nekem ez jött le abból az eventből hogy azt csinálja...
-
dany27
őstag
válasz
Gyuri16
#1819
üzenetére
Idén kezdtük suliban Delphit és van egy project amit le kell adni e hónap végéig és minnél tökéletesebben szeretném kivitelezni, mert 100%os munkát nem tudott mutatni a tanár mert ő szerinte eddig nem adott be senki olyant. (Bár nem értem attól mit vár aki 2 hónapja tanulja...). Am én már tanultam más 4GL nyelvet illetve Pascalt is így szeretnék minnél közelebb lenni a 100%-hoz!
Am még1 olyan kérdés hogy szövegbuborékot(azt hiszem hogy így hívják) tudok benn valahogy kreálni?
Előre is kössz!
-
Gyuri16
senior tag
válasz
Gyuri16
#1787
üzenetére
itt egy egyszeru klikkelgetos megoldas:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure FormCreate(Sender: TObject);
private
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
jatekos:char;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
if StringGrid1.Cells[ACol, ARow] <> '' then
exit; // ha mar van ott valami nem irjuk felul
StringGrid1.Cells[ACol, ARow]:=jatekos;
if jatekos='X' then
jatekos:='O'
else
jatekos:='X';
{
ide johet a kiertekeles, dll meghivasa stb
}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
jatekos:='X';
end;
end.(a formcreate ertelemszeruen a formnak az oncreate esemenye)
-
asimov007
csendes tag
válasz
Gyuri16
#1784
üzenetére
Kedves Gyuri 16!
Tudom,egy kissé pofátlan a kérés,de kb 1 hete használom a delphit.
Hogyan tudnám ciklusba rakni a Select -et és a rekurzivitást elkerülni!
Tényleg nagyon idegen nekem még program!
Ha szemtelennek tartasz,bátran mondd meg!!
És köszi a gyors választ
Légyszi irdd meg ,egyáltalán zavarhatlak-e hülye kédésekkel? -
-
^^|CC|^^
tag
válasz
Gyuri16
#1758
üzenetére
nah megcsináltam eddig nekem így néz ki:
var a,i: integer;
s,nullak: string;
m: byte;
begin
try
a:=strtoint(edit2.text);
if a<0 then raise exception.create('Ne legyen negatív!');
if a=0 then s:='0'
else begin
s:='';
while a>0 do begin
m:= a mod 2;
s:=inttostr(m)+s;
a:=a div 2
end;
nullak:='';
for i:=1 to 4-length(s) mod 4 do
nullak:=nullak+'0';
if length(nullak)=4 then
nullak:='';
s:=nullak+s;
end;
showmessage('Számocska:'+#13+#13+s);
except
showmessage('Hiba!!!');
end;
end;a félkövér amit javasoltál... most legalább már tölti őket 0-kal, de még mindig nem tagolja fel 4sével...
-
Prego
senior tag
válasz
Gyuri16
#1644
üzenetére
Köszi, már ez is működik.
Úgy csináltam a programot, hogy van egy .../source/login/login.exe progi, amin van néhány gomb, melyek a különböző modulokat indítják. Az egyik modul a .../source/cars/cars.exe, az autókat tárolja, BDE Paradox7 adatbázisban. A Cars.DB is ebben a mappában van, a progi látja is, viszont ha a login-ből indítom, akkor kiírja hogy nem találja az adatbázist a .../source/logins/cars.DB elérésen, de a progit aztán elindítja csak hát se felvenni se semmit nem lehet vele csinálni.
Az indításhoz használt parancs:
ShellExecute(Handle, 'open', '..\cars\cars.exe', nil, nil, SW_SHOWNORMAL).
Amúgy is bajosabb lesz az adatbázis a késöbbiekben, mert egy másik számítógépen lesz, mint a futó program, nem tudom hogy a BDE tudja e alapból a kliens-szerver dolgot, vagy kénytelen leszek külön szerverprogit összedobnom. -
Gyuri16
senior tag
válasz
Gyuri16
#1581
üzenetére
latom sajnos nem sokan foglalkoznak ezzel, de azert leirom mire jutottam.
az indy projekt hivatalos oldalarol letoltottem a demo programokat, azok kozul is a IdTCPDemo volt az erdekes, ahol erthetoen meg van irva a program.sajnos a masodik problema meg mindig megoldatlan ( a peldaprogram is hasonlo hibat eredmenyez). Probalta mas is ezt a demot? (neki is ilyen hibat okoz?)
-
Gyuri16
senior tag
válasz
Gyuri16
#1580
üzenetére
vegulis feladtam a tcpclient hasznalatat, most az indy komponenseket hasznalom (idTCPServer, idTCPClient) es a kommunikaciot egesz jol sikerult megvalositanom, vagyis majdnem:
1, az egesz dolog egy otodolo jatekhoz van, hogy lehessen jatszani halozatban (nem nagy dolog, de suliba projektnek lesz..), szoval itt ugye kezd a szerver, majd a kliens jon stb, igy mindig varnak egymasra. ha kliensel kuldok valamit szervernek azt szepen megkapja, majd ott vissza tudok neki kuldeni, kerdesem az, hogy hogy hogyan tudok a commandHandlereken kivul kuldeni valamit a kliensnek.
2, szituacio: szerver elindit, kliens csatlakozik, szerver kikapcsol kliens disconnectel. minden szep, te a szerver nem tud rendesen megszunni, dob egy "terminate thread timeout" hibat.. hiaba csinaltam egy kulond reszt a formdestroyba: idTCPServer1.ThreadMgr.TerminateThreads; aztan meg idTCPServer1.active:=false, igy is kidobja az errort..remelem ezzel a modernebb komponensel tudtok majd segiteni
Új hozzászólás Aktív témák
- MSI MAG 341CQP QD-OLED 34" UWQHD ívelt Gaming monitor + több mint 3 év garancia
- Sony PlayStation 5 Media Remote eladó
- Eladó Xiaomi Mi 10 5G 8GB / 128GB Twilight Gray Szinte karcmentes!
- iPad Pro 12.9" 4.Gen 2020 1TB Space Gray Wifi cellular, Garanciával, üzletből
- Dell Latitude 7420, 14" 4K IPS, I7-1185G7 CPU, 16GB DDR4, 512GB SSD, W11, Számla, 1 év garancia ( ol
- Panasonic TX-L47E5Y 47" LED TV eladó
- AKCIÓ! Apple iPad Pro 13 2024 M4 512GB Cellular tablet garanciával hibátlan működéssel
- Ultimate előfizetés új fiókra akár 2105 Ft/hó áron! Azonnali, automatizált aktiválással, csak Nálam!
- GYÖNYÖRŰ iPhone 13 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3036
- AZONNALI SZÁLLÍTÁS Eredeti Microsoft Office 2019 Professional Plus
Állásajánlatok
Cég: FOTC
Város: Budapest