Hvordan hente ett ord ifra f.eks. en txt fil inn i en label?

[Popsux]

Jeg lurer på hvordan man hente ett tilfeldig (Random) ord ifra f.eks. en txt fil inn i en label ved et knappetrykk (button1)?

 

Altså. Jeg vil at et tilfeldig ord (eller en setning) skal vises i en label (f.eks. label1).

 

Takk på forhånd!

[tasle]

Du kan prøve noe sånt som dette:

 

Var
 Ordliste : TStringlist;
begin
 Randomize;
 Ordliste:= Tstringlist.Create;
 Ordliste.Loadfromfile ('MineOrd.txt');

Label1.Caption:= Ordliste [Trunc (Random (Ordliste.Count))];

Ordliste.Free;
end;

 

Hvis dette skal skje flere ganger i samme program, vil det nok være greiest å lage en funksjon av kodesnutten.

[Popsux]

Takker tasle! Your the man!!

[ThePascal]

men hvorfor bruker du trunc?? det hjelper ingenting her. trunc er å runde ned hvis det er desimaltall. Det vil aldri bli desimaltall hvis man tar Random(X: DWORD), men hvis du skriver Random; så gir den tilbake et tall mellom 0- og 1.

 

Trunc(3.24) = 3

Trunc(4) = 4

Trunc(5.8) = 5

 

Fjerner desimalltallene

 

 

og husk at på tstringlist så må man ikke bruke random opp til count, men en mindere.

 

SåNN JA det var detalijert

[tasle]

Beklager, jeg husket feil hvilken datatype Random (x) gir. Random med argument gir et heltall og ikke et desimaltall. Trunc er derfor ikke nødvendig i dette tilfellet.

[pumba50]

Du kan prøve noe sånt som dette:

 

Var
 Ordliste : TStringlist;
begin
 Randomize;
 Ordliste:= Tstringlist.Create;
 Ordliste.Loadfromfile ('MineOrd.txt');

Label1.Caption:= Ordliste [Trunc (Random (Ordliste.Count))];

Ordliste.Free;
end;

 

Hvis dette skal skje flere ganger i samme program, vil det nok være greiest å lage en funksjon av kodesnutten.

Hvis du ønsker å laste navnene på labels fra filer på disk, anbefaler jeg å bruke ini filer til det, der kan du lagre navnene på de forskjellige komponentene.

 

Men når det er sagt, så har jeg lyst til å korrigere det eksemplet jeg kvoterer.

 

Det bør skrives slik:

HUSK Å LAGE EN OrdListe av typen TStringList under implementation i programmet så kjører du denne rutinen under oppstart av programmet.

 

Procedure LoadOrdList;
begin
 OrdListe := TStringList.Create;
 try
   OrdListe.LoadFromFile('filen.txt');
 except
   on E:Exception do
   begin
     OrdListe.Free;
     MessageDlg('En feil oppstod under lasting av fil.',mtError,[mbAbort],0);
   end;
 end;
end;

 

Så kan du lage en slik rutine for å laste inn ord fra ordlista basert på posisjonen i ordlista (første ord har indeks 0, endre ordnummer fra byte til word hvis du har flere enn 256 ord)

 

Function HentOrd(const ordnummer: byte) : string;
begin
 Result := '';
 Assert(Assigned(OrdListe),'Ordlisten er ikke initialisert.');
 if OrdListe.Count > ordnummer then
   Result := OrdListe.Strings[ordnummer];
end;

Endret 23. august 2009 av Databamse