unit lw;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Grids, Printers, DBGrids, Mask, DBCtrls,
Db, DBTables,
ComCtrls;
type
TLW1 =
class
z :integer;
public
Procedure LoadPic(image1:Timage;PicName :
string);
procedure SuchePic(dir:
string; datei :
string);
constructor Create;
end;
var
LW1: TLW1;
root :
string;
rootErr :boolean;
// musste ich global realiesieren da anders ??
Picroot :
string;
DBRoot:
string;
picname :
string;
implementation
uses Unit1, Unit7,focus,Unit9,unit4;
constructor Tlw1.Create;
begin
lw1:=lw1.create;
lw1.z:=10;
//test ob V funktioniert und hier ist der Fehler
end;
Procedure Tlw1.LoadPic(image1:Timage;PicName :
string);
begin
Image1.picture.loadfromfile(picroot+picname+'
.bmp');
lw1.z:=10;
// fehler
if lw1.z = 10
then Zeichnung.label1.caption:='
Variabel Test ';
end;
Procedure TLW1.SuchePic(dir :
string; datei:
string);
Var rec: TSearchRec;
i:integer;
dirtemp :
string;
// hier kann die gesamte Festplatte und alle perf.
//durchsucht werden nach einer bestimmten Datei
begin
dir := IncludeTrailingBackslash(dir);
if FindFirst(dir+'
*.*',faAnyFile,rec)=0
then Begin
repeat
//Eintrag ist eine Datei
If ((rec.attr
And faDirectory) = 0)
and (rec.
Name[1]<>'
.')
then
if rec.
name = datei
then
begin
root:=dir;
rooterr:=true;
//1 steht für gefunden
end;
if (rec.Attr
and faDirectory = faDirectory)
and (rec.
Name[1] <> '
.')
then Begin
dirtemp := dir + rec.
name;
lw1.SuchePic(dirtemp,Datei);
//Rekursiv
End;
until FindNext(rec)<>0;
FindClose(rec);
End;
end;
end.