Отрисовка текста в цикле

[Stilet]

Это видимо

Угадал, дружище. Я на скорую руку писал, и проверки ставить чет влом было ))))

faAnyFile-faDirectory

По-моему это не даст верный резальтат.
Имхо нужно писать faAnyFile and not faDirectory. Впрочем не проверял.

[Sibedir]

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;

Тут простые логические опирции не проканают.

Эти 2 кода работают идентично, но 2 выглядит куда приятнее

procedure TForm1.FormCreate(Sender: TObject);
var
  SR: TSearchRec;
begin
  Memo1.Lines.Clear;
  FindFirst ('d:\TEMP\*.*', faAnyFile, SR);
  repeat
    if (SR.Attr and faDirectory) <> faDirectory then begin
      Memo1.Lines.Add (SR.Name);
    end;
  until FindNext (SR) <> 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
begin
  Memo1.Lines.Clear;
  FindFirst ('d:\TEMP\*.*', faAnyFile-faDirectory, SR);
  repeat
    Memo1.Lines.Add (SR.Name);
  until FindNext (SR) <> 0;
end;

[Stilet]

Тут простые логические опирции не проканают.

Друже, Учи матчасть ) Эти выражения дуальны. Они могут быть использованы не только в логическом выражении
А чтоб не быть голословным приведу пример:

procedure TForm1.FormCreate(Sender: TObject);
var
  SR: TSearchRec;
begin
  Memo1.Lines.Clear;
  if FindFirst ('c:\temp\*', faAnyFile and not faDirectory, SR)<>0 then exit;
  repeat
      Memo1.Lines.Add (SR.Name);
  until FindNext (SR) <> 0;
  FindClose(sr);
end;

Найдет все файлы без директорий

[artemavd]

Все, разобрался как должно быть, чтобы первый файл брался. Вот рабочий код:

procedure TForm1.BtnRecordClick(Sender: TObject);
var
 x,y,i:integer;
 b:TBitmap;
 sr:TSearchRec;
 s:string;
begin
 b:=TBitmap.Create;
 FindFirst(Form1.StatusBar3.Panels[1].Text +'*.bmp',faAnyFile,sr);
// FindNext(sr);
 with StringGrid1 do
  for i:=0 to RowCount-1 do begin
   b.LoadFromFile(Form1.StatusBar3.Panels[1].Text + sr.Name);
   b.Canvas.Rectangle(90,200,600,90);
   b.Canvas.Font.Color:=clBlack;
   b.Canvas.Font.Size:=50;
   b.Canvas.Font.Name:='Verdana';
   b.Canvas.TextOut(120,100,Cells[0,i]);
   b.SaveToFile(Form1.StatusBar3.Panels[1].Text + sr.Name + '.tiff');
   if FindNext(sr)<>0 then break;
  end;
 b.Free;
 FindClose(sr);
 ShowMessage('             Выполнено!             ');
end;

[Stilet]

Ну вот и молодчина. Поставь себе плюс в репу )))

[artemavd]

Если бы я мог сам себе поставить

[Sibedir]

Упс. Ну не знал, не знал я. В оправдание могу лишь вяло заметить, что опирация с минусом (в данном конкретном случае) будет выполняться быстрее (вроде бы).

[Пепел Феникса]

поидее Делфи должен константу подставить а не вычислять каждый раз, так что разница...хз есть ли.

[Sibedir]

Ну вот, на этапе компиляции ж время экономится.
Блин, ща спалюсь, ща спалюсь.

[Пепел Феникса]

бинарные операции тоже быстры.