Использование БД

[glazik]

Доброго времени суток!

Подскажите, пожалуйста, каким средством лучше пользоваться. Необходимо рандомный вывод на экран заранее прописанного текста и картинок. Как это лучше организовать?
Поясню, что нужно:
есть 1.txt и 1.jpg, 2.txt и 2.jpd; нужно чтоб первый раз мне программа выдала на экран 1.txt и 1.jpg; во второй раз выдала 2.txt и 2.jpg и так далее, соотв. при наличии 100.txt и 100.jpg выводилось каждый раз рандомно...
Если не сложно поясните как реализовать или ссылочку где можно почитать. Заранее спасибо.

[GoodDA]

ложите на форму TImage и TMemo

дальше

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
  i:=random(100)+1;
  Image1.Picture.LoadFromFile(inttostr(i)+'.jpg');
  Memo1.Lines.LoadFromFile(inttostr(i)+'.txt');
end;

[rdama]

random(100)

Тут такой подход не проканает т.к. неизвестны границы для рандома. Как я понимаю, то ТС не в курсе сколько у него пар файлов txt - jpg.
Т.е. предполагаем что оно переменное.
Значит для того чтоб выполнить это

i:=random(100)+1;

надо узнать границы. А их можно узнать путем сканирования папки с файлами (например по типу txt) и подсчетом их.
Например вот так

Function GetFileCount(Dir, Ext:string):integer;
var fs:TSearchRec;
begin
  Result:=0;
  if FindFirst(Dir+'\*'+Ext,faAnyFile-faDirectory-faVolumeID, fs)=0 then
    repeat
      inc(Result);
    until FindNext(fs)<>0;
  FindClose(fs);
end;

Соответственно Dir - папка в которой смотрим, Ext - расширение файла которые считаем.
Возврат это количество файлов те самые границы для рандома.

[glazik]

Каким образом запихнуть содержание txt в label.caption? Т.к. memo выглядит не красиво...

[rdama]

memo.lines.text

[glazik]

Я прошу прощенья, а можно немного подробнее. Я так понял memo это форма для записи текста так? Но выглядит это не красиво....( Хотелось, чтоб текс из файла выводился в label.caption. Если не сложно чуть подробнее опишите как сделать так или как скрыть memo.

[Stilet]

glazik

Ты хочешь выводить текст на фоне картинки?

[glazik]

Нет просто текст потом картинка...

[Stilet]

Но выглядит это не красиво.

Тогда поясни что тебе не нравится в Мемо.

[glazik]

Может я чего не понимаю, но форма memo сама по себе не красивая и выглядит как edit, а мне нужно что бы текст выводился прям на бекграунде. Если в memo есть какая нить настройка, о которой я не знаю, подскажите плиз...