Tid

Kode 

//deklarering:
var
  tekster : TStrings;

//brug:
  Tekster := Tstringlist.Create; //Essentielt for at det hele virker! Husk den!
  Tekster.add('noget tekst'); //tilføjer noget tekst
  linjer := Tekster.count; // returnerer antal linjer som integer
  Tekster.loadfromfile('c:\\minfil.ext'); //Loader filen med navnet "minfil.ext"
  Linje := Tekster[0]; // returnerer den første linje
  Linje := Tekster[Tekster.Count -1]; // returnerer den sidste linje!
  Tekster.delete(0); //sletter den første linje

Kode 

Linje1
Linje2
Linje3
Linje4
Linje5

Kode 

procedure TForm1.FormCreate(Sender: TObject);
var
  MineTekster: TStringList;
  MinFil: String;
begin
  MinFil := ExtractFilePath(ParamStr(0)) + 'minetekster.txt';
  if FileExists(MinFil) then
  begin
    MineTekster := TStringList.Create;
    MineTekster.LoadFromFile(MinFil);
    if MineTekster.Count > 0 then
    begin
      Randomize;
      RichEdit1.Text := MineTekster[Random(MineTekster.Count)];
    end
    else
      RichEdit1.Text := '';
    MineTekster.Free;
  end;
end;

jeg er ved at lave et program der kan fortælle en hvor hurtigt man kan skrive...

jeg har to richedits

i den ene står det man skal skrive (der kan ikke ændres i den)

i den anden skal man skrive det der står i den første

det der står i den første skulle jo gerne skifte så det er ikke er det samme man skal skrive hver gang... det skal vel gemmes i et array eller noget... hvordan gemmer jeg nogle forskellige tekster der og hvordan loader jeg så en tilfældig tekst ind i en richedit?

på forhånd mange tak

Kode 

  Tekster: array [0..9] of String =
  ('Tekst 1',
  'Tekst 2',
  'Tekst 3',
  'Tekst 4',
  'Tekst 5',
  'Tekst 6',
  'Tekst 7',
  'Tekst 8',
  'Tekst 9',
  'Tekst 10');

Kode 

  Randomize;
  RichEdit1.Text := Tekster[Random(9)];

Kode 

procedure TForm1.FormCreate(Sender: TObject);
var
  MineTekster: Array of String;
  MinFil: String;
  F: TextFile;
  I: Integer;
begin
  MinFil := ExtractFilePath(ParamStr(0)) + 'minetekster.txt';
  if FileExists(MinFil) then
  begin
    AssignFile(F, MinFil);
    Reset(F);
    I := 0;
    while not Eof(F) do
    begin
      SetLength(MineTekster, I + 1);
      Readln(F, MineTekster[I]);
      Inc(I);
    end;
    if I > 0 then
    begin
      Randomize;
      RichEdit1.Text := MineTekster[Random(I)];
    end
    else
      RichEdit1.Text := '';
    CloseFile(F);
  end;
end;