Pomoc oko programa za preimenovanje .txt dokumenta u neko random ime....

Ucim u skoli Pascal i mislim da bi ovde mogla da pomogne takozvana "Funkcija Random". Problem je sledeci:

Imam text dokument koji se zove na primer pcc.txt, sad ne znam kako bi naveo u tom mom programu da preimenuje taj pcc.txt svaki put kad se program pokrene u neko random ime....Mislim da to nije neki tezak program, ja bi znao da odradim samo ne znam kako da postavim da prepoznaje pcc.txt....Ako treba nesto vise da se pojasni, pitajte... :)


Hvala !

Potpis

Nije mi žao što kradu moje ideje, već ih oplakujem što nemaju svoje...
Nikola Tesla.

dva nacina, mozes ime fajla sastaviti samo od brojeva, generises neki random broj i postavis ga za ime fajla,

drugi nacin je generisanje 5-6 brojeva od npr. 65 do 255 i onda pretvaranje u ASCII karaktere i spajanje u string, onda postavis taj string za ime fajla

E, to je problem sto ja ne znam kako to da uradim....ja bi stavio da pcc.txt uvek preimenuje u neki random broj....Ne znam kako da "targetujem" pcc.txt u mom programu....

Potpis

Nije mi žao što kradu moje ideje, već ih oplakujem što nemaju svoje...
Nikola Tesla.

var
fajl:string;
.....

fajl:=IntToStr(Random(9))+ IntToStr(Random(9)) +IntToStr(Random(9))+'.txt';
RenameFile('pcc.txt',fajl);

.....

Potpis

Arduino Control Center

Huh, tek sad vidim koliko u stvari ne znam....Moze ceo kod, ako nije problem... ?

Potpis

Nije mi žao što kradu moje ideje, već ih oplakujem što nemaju svoje...
Nikola Tesla.

fajl ti je putanja (filename) do fajla, mozes ovako,

stavi opendialog na formu i u kodu kucaj ovako,

if opendialog1.execute then
file := opendialog1.filename;

i sve to zajedno sa gornjim primerom stavi na npr. OnClick na neki Button, srpski klikni dva puta na button i pastuj kod :)

Hmmm ne ide mi nikako....Videcu sa profesorom, ako bude hteo da mi pokaze, ovo sto ste mi vi pomogli ne mogu da sklopim nikako....

Potpis

Nije mi žao što kradu moje ideje, već ih oplakujem što nemaju svoje...
Nikola Tesla.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
fajl,stari:string;

begin
try
randomize;
fajl:=IntToStr(Random(9))+ IntToStr(Random(9)) +IntToStr(Random(9))+'.txt';
stari:=extractfilepath(paramstr(0))+'pcc.txt';//direktorijum sa exe fajlom
if RenameFile(stari,extractfilepath(paramstr(0))+fajl) then begin
Writeln(extractfilepath(paramstr(0))+fajl);
ReadLn; end else begin
Writeln('Nije reimenovan fajl');
ReadLn;
end;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.

Potpis

Arduino Control Center

onda ne znas osnove... kreni od pocetka