Ĺadny brzuch
Czy ktoś wie jak w prosty sposób napisać program który po naściśnięciu przysisku (komponent TButton) wyświetlał losowy cytat zapisany w pliku *.txt wyświetlał go w komponencie TMemo. I w jaki sposób mają być zapisane cytaty w tym pliku ?
Bardzo by mi sie taki program przydał ale nie ummiem go zrobić, ale nie wydaje mi się żeby wymagał dużo kodu :-)
Wojna nigdy sie nie kończy, dla tych co walczyli.
Myślałem, żeby zrobić zmięnną która będzie się wyswietląła w text komponentu TMemo, ale nie wiem jak zrobić aby po naciśnięciu Buttonu ładowało mi kawałem tekstu z pliku do zmiennej.
Wojna nigdy sie nie kończy, dla tych co walczyli.
Czy ktoś umie odpowiedziec na moje pytanie ?
Wojna nigdy sie nie kończy, dla tych co walczyli.
Hextor - strasznie niecierpliwy jesteś :roll:
Co do pytania - to możesz np. w pliku zapisać wszystkie cytaty (każdy w nowej linijce) i w programie wczytać je do tablicy. A potem losujesz liczbę z przedziału od 0 do liczba_cytatów-1 i wstawiasz do Memo element tablicy o zylosowanym indeksie.
Kontakt - GG:5365367 / ICQ:245363570
(tylko w sprawach prywatnych - inne pytania proszę zadawać na Forum)
A mógłbyś mi napisać jak by wygladał kod czegoś takiego ???
Bo nie wiem jak wylosować i jak pobrac to z pliku .
Wojna nigdy sie nie kończy, dla tych co walczyli.
cytat:Hextor napisał:
A mógłbyś mi napisać jak by wygladał kod czegoś takiego ???
Bo nie wiem jak wylosować i jak pobrac to z pliku .
Co do losowania liczby to zainteresuj się funkcjami Random i Randomize. Możesz np. przejrzeć poniższy temat:
http://www.ks-eksper...p?TOPIC_ID=3370
A odczyt i zapis do pliku to funkcje - AssignFile, Reset, Rewrite, Readln, Writeln, CloseFile.
Poczytaj sobie o nich.
Narazie słabo znasz podstawy Delphi - dlatego najwięcej zyszkasz jak sobie poczytasz o tych funkcjach i sam pokombinujesz jak to napisać.
W razie problemów możesz pytać na forum - na pewno ktoś Ci pomoże.
Kontakt - GG:5365367 / ICQ:245363570
(tylko w sprawach prywatnych - inne pytania proszę zadawać na Forum)
Daj linka gdzie opisane są te funkcje, bo w tej książce która przeczytłąem nie ma tego.
Wojna nigdy sie nie kończy, dla tych co walczyli.
Zrobiłem coś takiego na razie:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
wynik: byte;
tekst: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize; //Aktywowanie generatora
wynik:=Random(10); //losowa liczba z zakresu 0-100 :integer
Memo1.Lines.Add(tekst);
end;
end.
Teraz musze napisac procedure pobierająca linie (wynik) z pliku txt i wpisanie jej do zmiennej "tekst". Nie mam pojęcia jak to zrobić i dlatego prosze o pomoc.
Wojna nigdy sie nie kończy, dla tych co walczyli.
Czy ktoś może mi odpowiedzieć ?
Wojna nigdy sie nie kończy, dla tych co walczyli.
cytat:Hextor napisał:
Czy ktoś może mi odpowiedzieć ?
Dobra - olej narazie funkcje o których pisałem i sprawdź sobie ten kod. W pliku cytaty.txt wpisz cytaty - każdy w osobnej linijce.
Randomize; lista := TStringList.Create; try lista.LoadFromFile('C:cytaty.txt'); Memo1.Lines.Strings[0] := lista.Strings[Random(lista.Count)]; finally lista.Free; end;
Kontakt - GG:5365367 / ICQ:245363570
(tylko w sprawach prywatnych - inne pytania proszę zadawać na Forum)
Duże, naprawde duże dzięki.
A co do mojej nie znajomości Delphi, to poprostu stwierdziłęm że nie będe już rozwijał sie w tym języku. Właśnie czytam ABC C++, a jak skończe to kupuje Symfonie C++. Więc Delphi sobie chyba daruje.
I na koniec jedno pytanko: Jak zrobić procedure która dodawała by tekst zapisany w Memo do schowka ?
Wojna nigdy sie nie kończy, dla tych co walczyli.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Bardzo by mi sie taki program przydał ale nie ummiem go zrobić, ale nie wydaje mi się żeby wymagał dużo kodu :-)
Wojna nigdy sie nie kończy, dla tych co walczyli.
Myślałem, żeby zrobić zmięnną która będzie się wyswietląła w text komponentu TMemo, ale nie wiem jak zrobić aby po naciśnięciu Buttonu ładowało mi kawałem tekstu z pliku do zmiennej.
Wojna nigdy sie nie kończy, dla tych co walczyli.
Czy ktoś umie odpowiedziec na moje pytanie ?
Wojna nigdy sie nie kończy, dla tych co walczyli.
Hextor - strasznie niecierpliwy jesteś :roll:
Co do pytania - to możesz np. w pliku zapisać wszystkie cytaty (każdy w nowej linijce) i w programie wczytać je do tablicy. A potem losujesz liczbę z przedziału od 0 do liczba_cytatów-1 i wstawiasz do Memo element tablicy o zylosowanym indeksie.
Kontakt - GG:5365367 / ICQ:245363570
(tylko w sprawach prywatnych - inne pytania proszę zadawać na Forum)
A mógłbyś mi napisać jak by wygladał kod czegoś takiego ???
Bo nie wiem jak wylosować i jak pobrac to z pliku .
Wojna nigdy sie nie kończy, dla tych co walczyli.
cytat:Hextor napisał:
A mógłbyś mi napisać jak by wygladał kod czegoś takiego ???
Bo nie wiem jak wylosować i jak pobrac to z pliku .
Co do losowania liczby to zainteresuj się funkcjami Random i Randomize. Możesz np. przejrzeć poniższy temat:
http://www.ks-eksper...p?TOPIC_ID=3370
A odczyt i zapis do pliku to funkcje - AssignFile, Reset, Rewrite, Readln, Writeln, CloseFile.
Poczytaj sobie o nich.
Narazie słabo znasz podstawy Delphi - dlatego najwięcej zyszkasz jak sobie poczytasz o tych funkcjach i sam pokombinujesz jak to napisać.
W razie problemów możesz pytać na forum - na pewno ktoś Ci pomoże.
Kontakt - GG:5365367 / ICQ:245363570
(tylko w sprawach prywatnych - inne pytania proszę zadawać na Forum)
Daj linka gdzie opisane są te funkcje, bo w tej książce która przeczytłąem nie ma tego.
Wojna nigdy sie nie kończy, dla tych co walczyli.
Zrobiłem coś takiego na razie:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
wynik: byte;
tekst: string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize; //Aktywowanie generatora
wynik:=Random(10); //losowa liczba z zakresu 0-100 :integer
Memo1.Lines.Add(tekst);
end;
end.
Teraz musze napisac procedure pobierająca linie (wynik) z pliku txt i wpisanie jej do zmiennej "tekst". Nie mam pojęcia jak to zrobić i dlatego prosze o pomoc.
Wojna nigdy sie nie kończy, dla tych co walczyli.
Czy ktoś może mi odpowiedzieć ?
Wojna nigdy sie nie kończy, dla tych co walczyli.
cytat:Hextor napisał:
Czy ktoś może mi odpowiedzieć ?
Dobra - olej narazie funkcje o których pisałem i sprawdź sobie ten kod. W pliku cytaty.txt wpisz cytaty - każdy w osobnej linijce.
Randomize; lista := TStringList.Create; try lista.LoadFromFile('C:cytaty.txt'); Memo1.Lines.Strings[0] := lista.Strings[Random(lista.Count)]; finally lista.Free; end;
Kontakt - GG:5365367 / ICQ:245363570
(tylko w sprawach prywatnych - inne pytania proszę zadawać na Forum)
Duże, naprawde duże dzięki.
A co do mojej nie znajomości Delphi, to poprostu stwierdziłęm że nie będe już rozwijał sie w tym języku. Właśnie czytam ABC C++, a jak skończe to kupuje Symfonie C++. Więc Delphi sobie chyba daruje.
I na koniec jedno pytanko: Jak zrobić procedure która dodawała by tekst zapisany w Memo do schowka ?
Wojna nigdy sie nie kończy, dla tych co walczyli.