TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
#1 Dr.Vostep
pokus se to nějak blíž upřesnit
zkus to jednoduse type record a pak stím nadále pracovat předešlá rada je taky kvalitní ale když dotoho použiješ k tomu ještě type record tak snad z toho neco vymáčkneš víc akorát teda jenom určité věci,pokud by jsi chtěl použit nahodný generátor randomize(); obejdeš se bez mojí rady a prostě si to jenom doplníš...
taky jsem začátečník v pythonu a tohle jsem hledal
tak jako
listbox1.items.savetofile('soubor01.dat');
tak i jde
if(fileexists('soubor01.dat')then
listbox1.items.loadfromfile('soubor01.dat');
ale jak se se souborem pracuje nevim už jsem to zapoměl
no v těch prvních dvou jsou hrubé chyby a tak alespoň smáznout první dva zdrojáky,ale jinač schválně jestli najdete ony chyby(začátečníci by to mohli také najít).No jinač trošku mi zlobilo pc a tak jsem nemohl nic přidávat a poradit jsem tehdy opravdu potřeboval a poradění se mi dostalo až až...,programování zdar a sílu.
prosím o lock tohoto topicku a zároveň jeho smazání
tady je zakladní kostra programu,zatím jsem si všiml chyby že špatně přidává do slovníků,dělám celý program znovu a tak se ptám jestli mi stím někdo přes icq nepomohl...
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
ListBox1: TListBox;
ListBox2: TListBox;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
veta:string; nalezeno:boolean;//deklarace proměnných
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
randomize();
i:=random(5)+1;
case i of //přivítání programu
1:memo1.Lines.Add('Ahoj,vítej očem poklábosíme?');
2:memo1.Lines.Add('Ahoj,kamaráde');
3:memo1.Lines.Add('Ahoj,jak to jde?');
4:memo1.Lines.Add('Zdar a sílu...jak to jde?');
5:memo1.Lines.Add('Zdarec kámo,dáme řeč?')
else showmessage('chyba programu!');
end;
if(fileexists('slovnik1.txt'))and(fileexists('slovnik2.txt'))then
//kontrola jestli existují soubory
begin//načtení souborů
listbox1.Items.LoadFromFile('slovnik1.txt');
listbox2.Items.LoadFromFile('slovnik2.txt');
end
else showmessage('slovníky nenalezeny!'); //pokud nenalezne větu
//vyhodí hlašku...
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,x:integer;
begin
//zde budou pridávací vety
if(nalezeno=false)then begin
listbox2.Items.Add(edit1.Text);//opraveno
//pro automatické pridání do slovníků
end;
nalezeno:=false;
memo1.Lines.Add(edit1.Text);
for x:=0 to listbox1.Items.Count-1 do
begin
i:=pos(edit1.Text,listbox1.Items[x]);
if(i<>0)then
begin
memo1.Lines.Add(listbox2.Items[x]);
nalezeno:=true;
break;
end; //nalezeno
end;//cykl for
if(nalezeno=false)then
begin
listbox1.Items.Add(edit1.Text); //opraveno
memo1.Lines.Add(edit1.text+'...co je to?');
end;
end;
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
listbox1.Items.SaveToFile('slovnik1.txt');
listbox2.Items.SaveToFile('slovnik2.txt');
end;
initialization
{$I unit1.lrs}
end. //ja to resival takto
pak je aj dobrý to převádět na velky pismena
např
uses crt;//
var x:char;//pokud pracujeme s promennymi
//procedury funkce... a jedna znich treba menu();
/...pak do hlavniho programu
repeat//vstup se bude opakovat dokut...
//...programovy kod napr. uvedeni programu apod.
//...tady se dá nejaké to menu
writeln('********MENU*********');
writeln('*******Scitani(S)*******');
writeln('******Odcitani(O)******');
writeln('*******Nasobeni(N)****');
writeln('*******Děleni(D)*******');
writeln('********Konec(Esc)****');
writeln('*********MENU********');
a:=UpCase(readkey);//prevedem na velky pismena aby to nedelalo rotiku
//..pak muzeme pouzit prepinac
case a of
'A'://...zvolena procedura treba scitani;
'B'://...dalsi procedura treba odcitani;
'C'://...treba nasobeni;
'D'://...a třeba i dělení:);
end;
until(a=chr(27));//chr 27 je klavesa Ecs...
end.
//...ps dev pascal jsem taky zkousel ale mam radsi freepascal
program ukol24;
uses crt;
const {konstanta pro generovani dotazu behem zadani}
{*tady máš onu(podobnou) položku jenom zadáš jejich počet a načteš do programu*}
polozka: array[1..4] of string= ('prijmeni','jmeno',
'telefonni cislo','cislo na mobil');
var
zadani,radek,soubor:string;
s:text; {textovy soubor}
i:integer;
odpoved:char;
procedure novy; {vytvori novy soubor}
begin
rewrite(s);
write(s,'Prijmeni':15); {a zapise do neho hlavicku}
write(s,'Jmeno':15);
write(s,'Telefon':15);
writeln(s,'Mobil':15);
for i:=1 to 60 do write(s,'-');
writeln(s);
close(s);
end;
procedure inicializace;
begin
clrscr;
write('Jmeno souboru: '); {vyber souboru}
readln(soubor);
assign(s,soubor);
{$I-}
reset(s); {testuje jestli soubor existuje}
{$I+}
if ioresult<>0 then novy {kdyz ne tak ho vytvori}
else close(s);
end;
procedure vypis; {vypise obsah souboru}
begin
clrscr;
reset(s);
while not eof(s) do begin
readln(s,radek);
writeln(radek);
end;
repeat until keypressed;
close(s);
end;
procedure vymaz; {vymaze aktualni soubor}
begin
clrscr;
erase(s);
writeln('Soubor ',soubor,' byl smazan!');
writeln('Chcete vybrat jiny soubor A/N');
if upcase(readkey)='A' then inicializace {otevre bud jiny soubor}
else halt; {nebo ukonci program}
end;
procedure pridat; {prida polozku do souboru}
begin
append(s);
repeat
clrscr;
for i:=1 to 4 do begin {generuje dotaz pomoci konstant}
write('Zadejte ',polozka[i],': ');
readln(zadani);
write(s,zadani:15);
end;
writeln(s);
writeln('----------------------');
writeln('Dalsi zaznam? (A/N)');
until upcase(readkey)<>'A';
close(s);
end;
begin { hlavni program - menu}
inicializace;
repeat
clrscr;
writeln('Soubor: ',soubor);
writeln('---------------------');
writeln('Vypsat obsah ...... V');
writeln('Pridat polozku .... P');
writeln('Smazat soubor ..... S');
writeln('Zmena souboru ..... Z');
writeln('---------------------');
writeln('Konec ........... Esc');
odpoved:=upcase(readkey);
case odpoved of
'V': vypis;
'P': pridat;
'Z': inicializace;
'S': vymaz;
end;
until odpoved=chr(27);
end.zde je vylepšená verze 2011...
unit zvejkal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls, jpeg, Menus;
type
TForm1 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Button1: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
ListBox1: TListBox;
ListBox2: TListBox;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Memo1: TMemo;
RichEdit1: TRichEdit;
Timer1: TTimer;
Timer2: TTimer;
Edit4: TEdit;
Timer3: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure Edit1DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit3DblClick(Sender: TObject);
procedure Edit2DblClick(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Timer2Timer(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
nalezeno:boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
if (fileexists('slovnik1.zvk'))and(fileexists('slovnik2.zvk')) then begin
with richedit1 do //pro nastaveni barev na vystup
begin
//move caret to end
nalezeno:=false;
SelStart := GetTextLen;
//add bold + red
SelAttributes.Style := [fsBold];//sel atributes je lazaru pro memo nepouzitelny...
SelAttributes.Color := clblue;
SelAttributes.Size := 10;
SelText := '(***Uživatel***):( ';
seltext:=datetostr(now)+' :datum,čas: '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clblack;
SelText := #13#10;
end;
richedit1.Lines.Add(edit1.Text);
with richedit1 do
begin
//move caret to end
SelStart := GetTextLen;
SelAttributes.Style := [fsBold];
SelAttributes.Color := clred;
SelAttributes.Size := 10;
SelText := '(*** žvejkal***):(';
seltext:=datetostr(now)+' :datum,čas: '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clblack;
SelText := #13#10;
end;
for i := 0 to Listbox1.Items.Count - 1 do begin
j:=pos(edit1.Text,listbox1.Items[i]);
if j<>0 then begin
richedit1.Lines.Add(listbox2.Items[i]);
nalezeno:=true;break; end;
end;//for
if nalezeno=false then begin
randomize();
j:=random(5)+1;
case j of
1:richedit1.Lines.Add('neznám správnou odpověď');
2:richedit1.Lines.Add('no teď zrovna nevim...:(');
3:richedit1.Lines.Add('já tomuhle nerozumím...');
4:richedit1.Lines.Add('nerozumim této větě,protože ji nemám ve slovníku:(');
5:richedit1.Lines.Add('tohle neumim,a radši otom zatím nebudem diskutovat...');
end;
end;
if edit1.Text='' then
richedit1.Lines.Add('zadejte prosim vetu...nebo nejake zaeditovane souslovi...')
else if edit1.Text='konec' then
begin
application.Terminate;
end;
timer1.Enabled:=false; //pro vypnuti timeru 1
timer2.Enabled:=true;
if(edit1.Text='samomluva') or (edit1.Text='mluv sám se sebou') then begin
timer1.Enabled:=true; end; end//kotrola souborů
else begin
showmessage('nelze komunikovat bez slovníků!aplikace se ukončuje!');
application.Terminate;
end;
edit1.Text:='';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if (edit2.Text='') or (edit3.Text='') then begin
showmessage('zadejte do poliček slovni spojeni (prosim editujte)');
end
else begin
listbox1.Items.Add(edit2.Text);
listbox2.Items.Add(edit3.Text);
edit2.Text:='';
edit3.Text:='';
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:=0 to listbox1.Items.Count-1 do begin
if listbox1.Selected[i]then begin
listbox1.Items.Delete(i);
listbox2.Items.Delete(i);
break;
end
else if listbox2.Selected[i] then begin
listbox2.Items.Delete(i);
listbox1.Items.Delete(i);
break;
end;
end;//cyklus for
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
listbox1.Items.SaveToFile('slovnik1.zvk');
listbox2.Items.SaveToFile('slovnik2.zvk');
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.Text:='sem pište svůj text...';
timer1.Enabled:=false; timer2.Enabled:=false;
end;
procedure TForm1.Edit1DblClick(Sender: TObject);
begin
edit1.Text:=''; timer2.Enabled:=false;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.Click;
end;
procedure TForm1.Edit2DblClick(Sender: TObject);
begin
edit2.Text:='';
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button2.Click;
end;
procedure TForm1.Edit3DblClick(Sender: TObject);
begin
edit3.Text:='';
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button2.Click;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
listbox1.Items.SaveToFile('slovnik1.zvk');
listbox2.Items.SaveToFile('slovnik2.zvk');
end;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
if fileexists('slovnik1.zvk')and fileexists('slovnik2.zvk')then begin
listbox1.Items.LoadFromFile('slovnik1.zvk');
listbox2.Items.LoadFromFile('slovnik2.zvk');
showmessage('slovníky načteny!');
end
else begin showmessage('slovníky nenalezeny!uložte prosím nový slovník...');
end;
with richedit1 do
begin
//move caret to end
SelStart := GetTextLen;
SelAttributes.Style := [fsBold];
SelAttributes.Color := clred;
SelAttributes.Size := 10;
SelText := '(*** žvejkal***): (***(';
seltext:=datetostr(now)+' :datum,čas:) '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clblack;
SelText := #13#10;
end;
randomize();
i:=random(10)+1;
case i of
1:richedit1.Lines.Add('Ahoj,jak se máš?');
2:richedit1.Lines.Add('Ahoj,jak to jde?');
3:richedit1.Lines.Add('Ahoj,očem pokecáme?co nového?');
4:richedit1.Lines.Add('Zdar a sílu,jak je dneska?');
5:richedit1.Lines.Add('Ahoooj,jak se Ti vede?co nového?');
6:richedit1.Lines.Add('Čusky busky,stýskalo se mi...pokecáme?');
7:richedit1.Lines.Add('Ahoj Kamaráde:-),co nového?');
8:richedit1.Lines.Add('Ahojky Kamošu/ško...,co nového?');
9:richedit1.Lines.Add('Ahojky,tak jaká?Co nového?');
10:richedit1.Lines.Add('Ahoj,co nového?');
else richedit1.Lines.Add('jsem překvapen,nevim co říct');
end;
timer3.Enabled:=true;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
listbox2.ItemIndex:=listbox1.ItemIndex;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
begin
listbox1.ItemIndex:=listbox2.ItemIndex;
end;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if pagecontrol1.ActivePageIndex=0 then begin
edit1.enabled:=true;
button1.enabled:=true;
end
else begin
edit1.Enabled:=false;
button1.Enabled:=false;
if fileexists('slovnik1.zvk')and fileexists('slovnik2.zvk')then begin
button3.Enabled:=true;
end else button3.Enabled:=false;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
with richedit1 do
begin
//move caret to end
SelStart := GetTextLen;
SelAttributes.Style := [fsBold];
SelAttributes.Color := clblack;
SelAttributes.Size := 10;
SelText := '(*** žvejkal***): (***(';
seltext:=datetostr(now)+' :datum,čas:) '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clred;
SelText := #13#10;
randomize();
i:=abs(random(listbox1.Items.Count));
Lines.Add(listbox1.Items[i]);
selattributes.Color:=clblue;
Lines.Add(listbox2.Items[i]);
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var i:integer;
begin
timer2.Interval:=20000;
if timer2.Interval=20000 then begin
randomize();
i:=random(3)+1;
case i of
1:richedit1.Lines.Add('Nespi!');
2:richedit1.Lines.Add('Když budeš spát,tak sladký sny...');
3:richedit1.Lines.Add('Dobrou...,sladký sny...:-)');
end;
end;
end;
procedure TForm1.Timer3Timer(Sender: TObject);
begin
edit4.Text:=timetostr(now);
end;
end.www.melamber777.webgarden.cz na této adrese najdete také požadovaný program+foto...pokud chcete se naučit programovat používejte na source kody google nebo pokud začínáte můžete začínat s pascalem...(nebo freepascal)
unit zvejkal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, jpeg, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
RichEdit1: TRichEdit;
Image1: TImage;
MainMenu1: TMainMenu;
Soubor1: TMenuItem;
Vlastnosti1: TMenuItem;
opalikaci1: TMenuItem;
Konec1: TMenuItem;
Natislovnk1: TMenuItem;
OAplikaci1: TMenuItem;
editor1: TMenuItem;
vejkal1: TMenuItem;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
ListBox4: TListBox;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Memo1: TMemo;
Timer1: TTimer;
Timer2: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit1Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Edit2Click(Sender: TObject);
procedure Edit3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Natislovnk1Click(Sender: TObject);
procedure OAplikaci1Click(Sender: TObject);
procedure Konec1Click(Sender: TObject);
procedure ListBox3Click(Sender: TObject);
procedure ListBox4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure editor1Click(Sender: TObject);
procedure vejkal1Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);
var
Form1: TForm1;
value:string[60];
zmena,nalezeno:boolean;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
with richedit1 do //pro nastaveni barev na vystup
begin
//move caret to end
nalezeno:=false;
SelStart := GetTextLen;
//add bold + red
SelAttributes.Style := [fsBold];//sel atributes je lazaru pro memo nepouzitelny...
SelAttributes.Color := clred;
SelAttributes.Size := 10;
SelText := '(*** '+value+'***):( ';
seltext:=datetostr(now)+' :datum,čas: '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clblack;
SelText := #13#10;
end;
richedit1.Lines.Add(edit1.Text);
with richedit1 do
begin
//move caret to end
SelStart := GetTextLen;
SelAttributes.Style := [fsBold];
SelAttributes.Color := clred;
SelAttributes.Size := 10;
SelText := '(*** žvejkal***):(';
seltext:=datetostr(now)+' :datum,čas: '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clblack;
SelText := #13#10;
end;
for i:=0 to listbox1.Items.Count-1 do begin
if edit1.Text=listbox1.Items[i] then begin
richedit1.Lines.Add(listbox2.Items[i]);
nalezeno:=true; end;
end;
if nalezeno=false then begin
randomize();
j:=random(5)+1;
case j of
1:richedit1.Lines.Add('neznám správnou odpověď');
2:richedit1.Lines.Add('no teď zrovna nevim...:(');
3:richedit1.Lines.Add('já tomuhle nerozumím...');
4:richedit1.Lines.Add('nerozumim této větě,protože ji nemám ve slovníku:(');
5:richedit1.Lines.Add('tohle neumim,a radši otom zatím nebudem diskutovat...');
end;
end;
if edit1.Text='' then
richedit1.Lines.Add('zadejte prosim vetu...nebo nejake zaeditovane souslovi...')
else if edit1.Text='konec' then
begin
application.Terminate;
end;
timer1.Enabled:=false;timer2.Enabled:=false; //pro vypnuti timeru 1 ,2
if(edit1.Text='zablikej diodama')or(edit1.Text='zablikej diodama...')then
begin
timer2.Enabled:=true;
end;
if(edit1.Text='samomluva') or (edit1.Text='mluv sám se sebou') then begin
timer1.Enabled:=true; end;
edit1.Text:='';
memo1.SelStart := memo1.GetTextLen;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if (edit2.Text='') or (edit3.Text='') then begin
showmessage('zadejte do poliček slovni spojeni (prosim editujte)');
zmena:=false;
end
else begin
listbox3.Items.Add(edit2.Text);
listbox4.Items.Add(edit3.Text);
edit2.Text:='';
edit3.Text:='';
zmena:=true;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
begin
for i:=0 to listbox3.Items.Count-1 do begin
if listbox3.Selected[i]then begin
listbox3.Items.Delete(i);
listbox4.Items.Delete(i);
zmena:=true;
break;
end
else if listbox4.Selected[i] then begin
listbox4.Items.Delete(i);
listbox3.Items.Delete(i);
zmena:=true;
break;
end
else zmena:=false;
end;//cyklus for
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if zmena=true then begin
listbox3.Items.SaveToFile('slovnik1.zvk');
listbox4.Items.SaveToFile('slovnik2.zvk');
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
timer2.Enabled:=false;
end;
procedure TForm1.Edit1Click(Sender: TObject);
begin
edit1.Text:=''; timer1.Enabled:=false;timer2.Enabled:=false;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //reakce na oba entery
button1.Click;
end;
procedure TForm1.Edit2Click(Sender: TObject);
begin
edit2.Text:='';
end;
procedure TForm1.Edit3Click(Sender: TObject);
begin
edit3.Text:='';
end;
procedure TForm1.editor1Click(Sender: TObject);
begin
pagecontrol1.ActivePageIndex:=1;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if zmena=true then begin
listbox1.Items.SaveToFile('slovnik1.zvk');
listbox2.Items.SaveToFile('slovnik2.zvk');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
repeat
value := InputBox('program žvejkal', 'prosim zadejte svůj nick:', '');
until value <> '';
with richedit1 do
begin
//move caret to end
SelStart := GetTextLen;
SelAttributes.Style := [fsBold];
SelAttributes.Color := clred;
SelAttributes.Size := 10;
SelText := '(*** žvejkal***): (';
seltext:=datetostr(now)+' :datum,čas: '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clblack;
SelText := #13#10;
end;
randomize();
i:=random(5)+1;
case i of
1:richedit1.Lines.Add('Zdravím Tě příteli,očem pokecáme?');
2:richedit1.Lines.Add('Ahoj,jak to jde?');
3:richedit1.Lines.Add('Zdar a sílu,jak se vede?');
4:richedit1.Lines.Add('hoj:),jdeš pozdě,čekal jsem tu na Tebe celou věčnost...');
5:richedit1.Lines.Add('Ahoj,nevim ale někdy mě dojímáš:)');
else richedit1.Lines.Add('chyba programu!prosím ukončete tento program!');
end;
if FileExists('slovnik1.zvk') and fileExists('slovnik2.zvk')then begin
listbox1.Items.LoadFromFile('slovnik1.zvk');
listbox2.Items.LoadFromFile('slovnik2.zvk');
showmessage('slovník načten!');
end
else showmessage('slovníky nenalezeny!');
end;
procedure TForm1.Konec1Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.ListBox3Click(Sender: TObject);
begin
listbox4.ItemIndex:=listbox3.ItemIndex;
end;
procedure TForm1.ListBox4Click(Sender: TObject);
begin
listbox3.ItemIndex:=listbox4.ItemIndex;
end;
procedure TForm1.Natislovnk1Click(Sender: TObject);
begin
if pagecontrol1.ActivePageIndex=1 then begin
if fileexists('slovnik1.zvk')and fileexists('slovnik2.zvk')then begin
listbox3.Items.LoadFromFile('slovnik1.zvk');
listbox4.Items.LoadFromFile('slovnik2.zvk');
showmessage('slovník načten!');
end
else showmessage('slovníky nenalezeny!uložte prosím nový slovník...');end
else if fileexists('slovnik1.zvk')and fileexists('slovnik2.zvk')then begin
listbox1.Items.LoadFromFile('slovnik1.zvk');
listbox2.Items.LoadFromFile('slovnik2.zvk');
showmessage('slovník načten!');
end
else showmessage('slovníky nenalezeny!uložte prosím nový slovník...');
end;
procedure TForm1.OAplikaci1Click(Sender: TObject);
begin
pagecontrol1.ActivePageIndex:=2;
end;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if pagecontrol1.ActivePageIndex=0 then begin
edit1.enabled:=true;
button1.enabled:=true;
end
else begin
edit1.Enabled:=false;
button1.Enabled:=false;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
with richedit1 do
begin
//move caret to end
SelStart := GetTextLen;
SelAttributes.Style := [fsBold];
SelAttributes.Color := clred;
SelAttributes.Size := 10;
SelText := '(*** žvejkal***): (';
seltext:=datetostr(now)+' :datum,čas: '+timetostr(now)+' )***)';
SelAttributes.Size := 8;
selattributes.Color:=clblack;
SelText := #13#10;
end;
randomize();
i:=abs(random(listbox1.Items.Count));
richedit1.Lines.Add(listbox1.Items[i]);
richedit1.Lines.Add(listbox2.Items[i]);
timer2.Enabled:=true;
end;
{
procedure TForm1.Timer2Timer(Sender: TObject);
var
o : OSVERSIONINFO;
NumLockState : boolean;
ScrollLockState : boolean;
CapsLockState : boolean;
keys : TKeyboardState;
begin
o.dwOSVersionInfoSize := SizeOf(o);
GetVersionEx(o);
GetKeyboardState(keys);
//NumLock handling:
If NumLockState <> True then //Turn numlock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then //=== Win95/98
begin
keys[VK_NUMLOCK] := 1;
SetKeyboardState(keys);
end
Else
If o.dwPlatformId = VER_PLATFORM_WIN32_NT Then //=== WinNT
begin
//Simulate Key Press
keybd_event(VK_NUMLOCK, $45, KEYEVENTF_EXTENDEDKEY Or 0, 0);
//Simulate Key Release
keybd_event (VK_NUMLOCK, $45, KEYEVENTF_EXTENDEDKEY
Or KEYEVENTF_KEYUP, 0);
End;
//CapsLock handling:
If CapsLockState <> True Then //Turn capslock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then //=== Win95/98
begin
keys[VK_CAPITAL] := 1;
SetKeyboardState(keys);
end
Else
If o.dwPlatformId = VER_PLATFORM_WIN32_NT Then //=== WinNT
begin
//Simulate Key Press
keybd_event(VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY Or 0, 0);
//Simulate Key Release
keybd_event (VK_CAPITAL, $45, KEYEVENTF_EXTENDEDKEY
Or KEYEVENTF_KEYUP, 0);
End;
//ScrollLock handling:
If ScrollLockState <> True Then //Turn Scroll lock on
If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then //=== Win95/98
begin
keys[VK_SCROLL] := 1;
SetKeyboardState(keys);
end
Else
If o.dwPlatformId = VER_PLATFORM_WIN32_NT Then //=== WinNT
begin
//Simulate Key Press
keybd_event(VK_SCROLL, $45, KEYEVENTF_EXTENDEDKEY Or 0, 0);
//Simulate Key Release
keybd_event(VK_SCROLL, $45, KEYEVENTF_EXTENDEDKEY
Or KEYEVENTF_KEYUP, 0);
End;
//stimto si doted nevim rady,potreboval nejake to bliani diod....
end;
}
procedure TForm1.vejkal1Click(Sender: TObject);
begin
pagecontrol1.ActivePageIndex:=0;
end;
end.by melamber777no jinac jestli to mas jen tak na zkouzku muzes si to dat do button1.clik;) dat tam jeste jeden edit a v button1.click pouzij richedit1.lines.add(edit1.text) ,to value nemusis pouzivat,leda ze bys ji priradil nejakou stringovou hodnotu a vhodne nadeklaroval...
To Anonymní uživatel :
with richedit1 do
begin
//move caret to end
SelStart := GetTextLen;
SelAttributes.Style := [fsBold];//sel atributes je lazaru pro memo nepouzitelny...
SelAttributes.Color := clblue;//tohle je zmena barvy
SelAttributes.Size := 10;//tohle je zmena velikosti pisma
SelText := '(*** '+value+'***):( ';//value : string[60];
seltext:=datetostr(now)+' :datum,čas: '+timetostr(now)+' )***)';//prace s datumem a casem
SelAttributes.Size := 8;//zpet na puvodni velikost
selattributes.Color:=clblack;//clnormal by taky mozna zabralo(zpet na puvodni barvu)
SelText := #13#10;//prikaz na novy radek neco jako enter:)
end;To Erix : no nevim zkus to na zkousku ulozit do slozky borland/projects/*.cilovy_vytvoreny.exe protoze tam kam ukladas zdrojaky tam se ti ukladaji i vytvorene *.exe(pokud se mylim mas neco s nastavenim delphi a to ti asi moc nepomuzu)
To Anonymní uživatel : [url]http://delphi.about.com/od/delphitips2008/qt/format_richedit.htm/url] asi jsi myslel tohle:),v memo tohle dost dobre pokud vim ja nejde,ale v richeditu ano...
no ja pouzivam ubuntu-8.04 a jsem snim spokojeny,daji se natom i najit solidni hry napr. open arena,nebo jine,ale myslim ze je i kazdeho vec co chce mit za OS
tak jsem to vyresil nahodnym...
program zvejkal;
uses crt;
var soubor:text;
slovo,slovo2:string[120];
i:integer;//promena pro nahodne generovani
procedure inicializace;
begin
assign(soubor,'slovnik.txt');
{$I-}
reset(soubor);
{$I+}
if IOResult<>0 then rewrite(soubor);
close(soubor);
end;
procedure ulozit; //procedura ulozit
begin
append(soubor);
writeln(soubor,slovo);
close(soubor);
end;
procedure vetu; //procedura nacist
begin
reset(soubor);
randomize;
i:=20;
for i:=random(i)+random(i)-10 to random(i)+20 do begin
readln(soubor,slovo2);
end;
close(soubor);
end;
//hlavni program
begin
textbackground(red);
textcolor(yellow);
clrscr;
writeln('ahoj,ja jsem zvejkal ocem si pozvejkame?');
repeat
readln(slovo);
inicializace;
ulozit;
vetu;
writeln(slovo2);
until(slovo='konec');
end.To Blujacker : tak se to nějak vyřešilo...
,no jinac delam to ve freepascalu
tak je to vyřešené,je teda pravda že přes string to nejde,ale jde to pomoci seltext,kamarad mi odkazem.prosim o uzavření této diskuze...
jo jenze kdyz pouziju richedit1.Font.Color:=clred; tak je mi to k nicemu protoze to zmeni vsechen text,a ja potrebuju to mit ten text barevne rozliseny,prosiiim nebyl by nekdo kdo by tu otazku me dokazal odpovedet nejlepe zdrojovym kodem?
ja věřim že to jde,jenom,jsem zase narazil na další pkážku v programovaní,protože jsem to nikde v člancích ani na netu nenašel:(
To retriwr : takže to nepujde zmenit určitý text?
mam text (u,z:string) z toho u:='uzivatel';//potreboval bych modre, a z:='zakaznik';//potreboval bych cervene,nicmene nevim jak zmenit textu urciteho barvu ví někdo?
Ahojte vsem,nainsaloval jsem si python 2.5.2. ale jde mi jenom ten prikazovej radek a chtel bych aby mi seli ten grafickej ide,nevite nekdo jak nato?to graficky se mi nespusti...
no nemam to uplne eno nuno,ale snad bych pomohl
s cin.get() jdou delat i jina kouzla,pokud chces muzes si nadeklarovat promenou treba:
tak jsem zkusil turbodelphi a musim se vsem omluvit,za mou slabou proziravost,myslim ze dephi je dobra volba(turbodelphi,nebo jine dephi).jako dukaz pridavam program ktery jsem utvoril pro svoje poteseni
tak jsem nato prisel...,ted uz asi budu delat jen v turbodelphi:)
http://www.lazarus.freepascal.org/ stahni si lazarus,nepotrebujes zadne registrace a jeste to ma spoustu vychytavek a to aj to ze je tam slovesnka dokumentace(coz ceska neni)...,no ten lazarus ale byva chybovy,stahl jsem si na zkouzku turbodephi,ale nevim jak mam vytvorit vysledny soubor...:(
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize();
i:=random(7)+1;//7 urcuje pocet generovanych cisel
j:=random(7)+1;
i:=i*j;
memo1.Lines.Add(IntToStr(i));//no kdyz to maji byt nahodna cisla tak preci ne postupne,ale pro zacatek ti to muze stacit...
//IntToStr to je pretypovani integer na string,a jelikoz memo1.lines je typu string,nejak tak to ma byt
//pro sestupne nebo vzestupne generovani cisel pouzij cyklus for,nebo...pouzij podminek if,if else atd...
end;To neVERberleRfellerER : no,nejak jsem to spatne pochopil,no tak zrejme to gcc,code blocks taky pouzivam,taky to nejak pouziva gcc a jede to dobre.
To neVERberleRfellerER : tohle mi delalo taky musis dat ulozit jako(save as..)a hned za nazev souboru dat koncovku .cpp ,jestli mas spravny kod jiste ti pojede...
To Garret Raziel : tak jsem to zmakl a k memu udivu kompilator nasel chybu(;)....jednodusi navod na zprovozneni jsem snad jeste nevidel,a jeste jednou dekuji...dyztak toto nejak oznacte za vyresene prosim.
zdravim mam ubuntu 8.04,myslim ze jede v poho,ale mam takovou zavislost na programovani,tak jsem si stahl spoustu dobrejch programovacich ide,problem je v tom ze kdyz chci programovat v c++ nenajde to prekladac g++ a hodi to /bin/sh: g++: not found
Process terminated with status 127 (0 minutes, 0 seconds)
0 errors, 0 warnings,prosim poradte kde bych ten g++ sehnal(vim kde sehnat rpm coz nechci).Diky vsem za radu...
tak jsem zkusil kod a faka o sto pero,jenom k tomu lazarusu,lazarus je sice ve vyvoji,ale pokud vim tak ma v nabidce vicero komponent a tim je vlastne aj lepsi ne?
To Hirgon : ahoj,sezen si ucebnici zakladu sachove partie,mela by tam byt koncovka s vezi,to je snadne.ale spis by me jako sachystu zajimalo jak jsi dovedl udelat v pascalu sachovnici+kral+vez,to muselo byt obtizne.myslim ze se staci naucit tu sachovou koncovku a mas vyhrano...
no ja jsem rozhodne pro Lazarus,zezacatku jsem mel fakt nervy,tak jsem chvili bloumal netem,stahl jsem si freepascal a zacal v nem(rozhodne dotet neumim vse).Tedka delam v Lazarusu ''pro radost'' jeden program na komunikaci s pc,dost me to bavi,ale neprisel jsem nato jak do editu vlozim normalni cas,hledal jsem a nenasel...
jo a jeste neco...Lazarus je sice trosku jiny(ve win),nez delphi.Ale proc v tom delat takovy rozdil,kdyt borland uz tak ma svou reklamu...a lazarus take,ale lazarus je alespon zdarma,sic ve vyvoji,ale to preci stoji za hrich se v tom naucit ne?
diky vsem za pomoc,hodne jste mi pomohli!
© 2003–2024 Programujte.com