mam problem. by skonczyc moj program potrzebuje procedury ktora z pliku np. txt wybiera wyraz ,załużmy ze ten wyraz to "strona" i teraz w label'u zmienia go na "onastr" chodzi mi o to by zamienial litery ,zamienila kolejnosc liter i losowal wyrazy z pliku txt.
0
0
nie wiem czy mozna jakos inaczej ale proponuje Ci tak:
ustaw wyrazy w tablicy a nie pliku txt
kaz funkcji losowac wyraz Random niech losuje wg ID wyrazu
nie wiem jak zrobic zeby zamnienial lamer na rlmae
0
"Ktoś" pracuje nad generatorem słowników? :
0
mam problem. by skonczyc moj program potrzebuje procedury ktora z pliku np. txt wybiera wyraz ,załużmy ze ten wyraz to "strona" i teraz w label'u zmienia go na "onastr" chodzi mi o to by zamienial litery ,zamienila kolejnosc liter i losowal wyrazy z pliku txt.
var
Plik: TStringList;
s: string;
i: Integer;
begin
Randomize;
Plik:=TStringList.Create;
try
Plik.LoadFromFile('cośtam.txt');
s:=Plik[Random(Plik.Count)];
i:=Random(Length(s)) + 1;
s:=Copy(s, i + 1, 255) + Copy(s, 1, i)
finally
Plik.Free
end
end