Ugrás a fő tartalomra

Bejegyzések

Bejegyzések megjelenítése ebből a hónapból: március, 2007

Ha a lustaság fájna!

Most úgy egyszerre 3 dolgot kéne tennem. :D 1) Aludni, jó nagyot! 2) Programozni, jó sokat! 3) Semmit tenni, nagyon semmit! procedure TForm1.btn1Click(Sender: TObject); var LoadFile: TextFile; Filen: TFileName; tab, R: string; P, x: Byte; s: Integer; begin Filen := 'dict1.txt'; tab := ',"'; x := 0; if not FileExists(Filen) then begin Exit; end; AssignFile(LoadFile, Filen); Reset(LoadFile); if EOF(LoadFile) then begin CloseFile(LoadFile); Exit; end; try while not EOF(LoadFile) do begin Readln(LoadFile, R); P := Pos(',"',R); if p = 0 then begin ShowMessage('Rossz file!' + #13 + 'A program biztonsági okokból kilép!'); Application.Terminate; Exit; end; R := Copy(R, 0, Length(R)-p); edt1.Text := R; // dbedt2.EditText := R; end finally CloseFile(LoadFile); end

Ha a lustaság fájna!

Most úgy egyszerre 3 dolgot kéne tennem. :D 1) Aludni, jó nagyot! 2) Programozni, jó sokat! 3) Semmit tenni, nagyon semmit! procedure TForm1.btn1Click(Sender: TObject); var LoadFile: TextFile; Filen: TFileName; tab, R: string; P, x: Byte; s: Integer; begin Filen := 'dict1.txt'; tab := ',"'; x := 0; if not FileExists(Filen) then begin Exit; end; AssignFile(LoadFile, Filen); Reset(LoadFile); if EOF(LoadFile) then begin CloseFile(LoadFile); Exit; end; try while not EOF(LoadFile) do begin Readln(LoadFile, R); P := Pos(',"',R); if p = 0 then begin ShowMessage('Rossz file!' + #13 + 'A program biztonsági okokból kilép!'); Application.Terminate; Exit; end; R := Copy(R, 0, Length(R)-p); edt1.Text := R; // dbedt2.EditText := R; end finally CloseFile(LoadFile); end; Ezzel szenvedek! :) Ez egy text fájlból

Rég voltam!

Hát igen, mostanában nem jártam erre... Igazából nincs mit mesélnem. Sajnos megint rövid leszek: készítettem egy új képet Daz|Studio -ban, s készítek egy programot. Mad's Multilang. Programok fordításához lesz segítség. Még sehol sem tartok, a XML fájlok kifogtak egy kicsit rajtam... Hamarosan leszek, remélem holnap! Jó éjt!

Rég voltam!

Hát igen, mostanában nem jártam erre… Igazából nincs mit mesélnem. Sajnos megint rövid leszek: készítettem egy új képet Daz|Studio extico-ban , s készítek egy programot. Mad’s Multilang. Programok fordításához lesz segítség. Még sehol sem tartok, a XML fájlok kifogtak egy kicsit rajtam… Hamarosan leszek, remélem holnap! Jó éjt!

Buszozni, vagy nem?

Érdekes dolog történt, kb. 2 órája. Mesélek: Vígan vártunk a 14:08-as buszra. Hát 14:25 körül ide is ért. DE a "kedvenc" sofőr bácsikkal (Pöcze Gyula bá' ). S akkor kezdődött, EdÉt az öcsémet nem engedte fel a buszra, mondta: "Mert már többször át szöktél a szomszédos faluba!". S el kezdte lefelé taszigálni a buszról. Itt szóltam, "Két percet várjon! Két perc!", mert láttam, hogy a busz amivel anyámék jöttek megjött. Ezek után Gáborral vitázott, majd letessékelte Őt is. Ekkor szól be valaki valakinek (nem emlékszem, s nem is figyeltem). Csak az biztos, hogy Gábor vissza szólt, s erre Gyula bá' fel emelte a kezét ütésre. Gábor megfogta a kezét, s tusakodtak. Egy pillanatig gondolkodtam, majd közéjük álltam (nem is én, inkább a robot pilótám). Lehígadttak egy kicsit, s a busz elment. Itthon aztán eldöntöttük, hogy feljelentjük. Kérdéseim: Mért kell 20,9km útra 25km bérletet venni? Mért baj hogy valaki leutazza azt a 4,1km-t? Mért dolgozhat eg

Buszozni, vagy nem?

Érdekes dolog történt, kb. 2 órája. Mesélek: Vígan vártunk a 14:08-as buszra. Hát 14:25 körül ide is ért. DE a “kedvenc” sofőr bácsikkal (Pöcze Gyula bá’ ). S akkor kezdődött, EdÉt az öcsémet nem engedte fel a buszra, mondta: “Mert már többször át szöktél a szomszédos faluba!”. S el kezdte lefelé taszigálni a buszról. Itt szóltam, “Két percet várjon! Két perc!”, mert láttam, hogy a busz amivel anyámék jöttek megjött. Ezek után Gáborral vitázott, majd letessékelte Őt is. Ekkor szól be valaki valakinek (nem emlékszem, s nem is figyeltem). Csak az biztos, hogy Gábor vissza szólt, s erre Gyula bá’ fel emelte a kezét ütésre. Gábor megfogta a kezét, s tusakodtak. Egy pillanatig gondolkodtam, majd közéjük álltam (nem is én, inkább a robot pilótám). Lehiggadtak egy kicsit, s a busz elment. Itthon aztán eldöntöttük, hogy feljelentjük. Kérdéseim: Mért kell 20,9km útra 25km bérletet venni? Mért baj hogy valaki leutazza azt a 4,1km-t? Mért dolgozhat egy ilyen ember buszon? Ha az ügy folytatódi

ReceptBank vagy Recept Bank?

Ez ám a kérdés! De szerintem egybe fogom írni. Azt sem tudom, h szakácskönyv, vagy recept könyv! De a lényeg már megvan! A telepítő! De most bizonyitottan le vagyok fáradva! Amúgy ma szándékomban áll feltenni a programot! De még meg kell írnom a bemutatását! Érdekes, a 0.5 verzió lesz fennt. Ma megcsináltam ami nem tetszet, s a fejlesztői módot be tettem! (Bár inkább haladó lenne a jobb név.) Most meek Tinát hívom. Lehet leszek!

ReceptBank vagy Recept Bank?

Ez ám a kérdés! De szerintem egybe fogom írni. Azt sem tudom, h szakácskönyv, vagy recept könyv! De a lényeg már megvan! A telepítő! De most bizonyítottan le vagyok fáradva! Amúgy ma szándékomban áll feltenni a programot! De még meg kell írnom a bemutatását! Érdekes, a 0.5 verzió lesz fent. Ma megcsináltam ami nem tetszett, s a fejlesztői módot be tettem! (Bár inkább haladó lenne a jobb név.) Most meek Tinát hívom. Lehet leszek!

Red001 hivom a tornyot, tornyom a hívó!

Ahh, egy kis változtatás a Recept Bankon. Már nem NAG screen-es, de még így is kell regisztrálni. Ha nincs reg, nem tudod a neved adni a recepthez amit be írtál. :D Ez azért kellet, mert majd a 2-es verzióban ha feltöltés lesz, a fájl nevek (sajnos) tartalmazni fogják a nevet. Így nem lesz két ugyan olyan recept! Még leszek!

Red001 hivom a tornyot, tornyom a hívó!

Ahh, egy kis változtatás a Recept Bankon. Már nem NAG screen-es, de még így is kell regisztrálni. Ha nincs reg, nem tudod a neved adni a recepthez amit be írtál. :D Ez azért kellet, mert majd a 2-es verzióban ha feltöltés lesz, a fájl nevek (sajnos) tartalmazni fogják a nevet. Így nem lesz két ugyan olyan recept! Még leszek!