Tema
Registracija

Arrays i ispis na Label

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Idi na poslednju poruku
  • 5 odgovora
  • 2.429 pregleda
Arrays i ispis na Label 29.09.2011. u 20:15 · pre 183 meseci #1
Znaci imam Edit box u koji korisnik unese npr. c:/program a ja trebam videti da li tu ima folder npr. 'Zvukovi , Skinovi , Fax'
Evo kako sam ja ta probao:
Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
MyArray : Array [0..3] of string ;
begin
myarray[0]:='Zvukovi';
myarray[1]:='Logovi';
myarray[2]:='Slike';
for i:=0 to 2 do
begin
if FolderPostoji(edit1.Text + myarray[i])=true then label1.caption:='postoji ' + myarray[i];
sleep(3);
end;
end;

kad probam bez for petlje np.
if FolderPostoji(edit1.Text + myarray[0])=true then label1.caption:='postoji ' + myarray[0];
program radi savrseno , al sa for nista , e sad da ja radim if nekoliko puta samo bih dzabe opteretio program...
Gde gresim....
Re: Arrays i ispis na Label 29.09.2011. u 20:57 · pre 183 meseci #2
Prvo pitanje - sta ce ti ovo Sleep(3)? =)

Ne znam sta podrazumevas pod tim da sa for petljom ne radi, ali ja kao problem ovde vidim da ti u svakom prolazu kroz petlju u istu labelu upisujes razlicitu vrednost. Na primer, u situaciji da sva tri foldera postoje, za i = 0 dobijas label1.caption := 'postoji Zvukovi', zatim za i = 1 dobijas label1.caption := 'postoji Logovi', i na kraju za i = 2 dobijas label1.caption := 'postoji Slike'. Ova poslednja vrednost ('postoji Slike') ce po izvrsenju procedure i ostati vidljiva korisniku (ono 'postoji Zvukovi' i 'postoji Logovi' neces ni stici da vidis).

Ili umesto:
Code:
if FolderPostoji(edit1.Text + myarray[i])=true then label1.caption:='postoji ' + myarray[i];
... stavi nesto ovako (da sve upises u jednu labelu):
Code:
if (FolderPostoji(edit1.Text + myarray[i])) then label1.caption := label1.caption + ' postoji ' + myarray[i];

... ili stavi tri labele (label1, label2, label3), pa uradi nesto ovako:
Code:
if (FolderPostoji(edit1.Text + myarray[i])) then TLabel(Form1.FindComponent('label'+IntToStr(i+1))).Caption := 'postoji ' + myarray[i];
... gde je Form1 ime tvoje forme.


[edit] Nisam odmah obratio paznju, sad sam ispravio, kad proveravas IF uslov ne moras da vrsis poredjenje sa TRUE, kao sto radis ovde:
Code:
if FolderPostoji(edit1.Text + myarray[i])=true then
... vec mozes direktno da koristis sam rezultat funkcije koji je bool(ean), tj. ovako:
Code:
if FolderPostoji(edit1.Text + myarray[i]) then


[Ovu poruku je menjao ((BugA)) dana 30.09.2011. u 11:38 GMT+1]
Re: Arrays i ispis na Label 30.09.2011. u 09:44 · pre 183 meseci #3
Nema potrebe za komplikovanjem, Delphi nudi gomilu mogucnosti za ovakvu vrstu upotrebe.
Mozda bi trebao malo da pogledas winAPI. Evo ti jednog primera kako mozes da resis svoj problem uz primenu API-a
i Delphi-jevog FileListBox-a.

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, ShlObj, StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Button_1: TButton;
    Label_1: TLabel;
    FileListBox: TFileListBox;
    procedure Button_1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function BrowseDialog(const Title: string; const Flag: integer): string;
var
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  Result:='';
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName;
    lpszTitle := PChar(Title);
    ulFlags := Flag;
  end;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := IncludeTrailingBackslash(TempPath);
    GlobalFreePtr(lpItemID);
  end;
end;

procedure TForm1.Button_1Click(Sender: TObject);
var
  dir, FolderName : string;
  i : Integer;
begin
 dir := BrowseDialog('Look in:', BIF_RETURNONLYFSDIRS);
 if dir = '' then
  Exit;

 label_1.Caption:=dir;

 FileListBox.FileType := [ftDirectory];
 FileListBox.Directory := dir;

 for i := 0 to FileListBox.Count - 1 do
   begin
     FolderName := Copy(FileListBox.Items[i], 2, Length(FileListBox.Items[i])-2);   // moras da uklonis "[" i "]" sa imena foldera
     if FolderName = 'Zvukovi' then  // radis sta hoces
     if FolderName = 'Skinovi' then  // radis sta hoces
     if FolderName = 'Slike' then  // radis sta hoces

     // proveris koje hoces ime foldera 
   end;
end;

end.


poz
Re: Arrays i ispis na Label 30.09.2011. u 10:35 · pre 183 meseci #4
salaczr, pa bre preko API-ja izgleda dosta komplikovanije nego sto je on napravio =))

Ne zalazim u to sta radi njegova funkcija FolderPostoji(), ali recimo sam Delphi ima funkciju DirectoryExists() kojoj se prinosi putanja foldera - npr. FolderExists('C:\Neki folder\Folder u njemu'), sto ce vratiti True ako "Folder u njemu" postoji na datoj lokaciji, osnosno vratiti False ako folder (putanja) ne postoji.

Tako, umesto:
Code:
if FolderPostoji(edit1.Text + myarray[i]) = true then
... moze da pise:
Code:
if FolderExists(edit1.Text + myarray[i]) then

Samo da obrati paznju da
Code:
Edit1.Text + myarray[i]
daje ispravnu putanju, da ne zaboravi neku kosu crtu.
Re: Arrays i ispis na Label 30.09.2011. u 11:30 · pre 183 meseci #5
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
MyArray : Array [0..3] of string ;
begin
myarray[0]:='Zvukovi';
myarray[1]:='Logovi';
myarray[2]:='Slike';
for i:=0 to 2 do
begin
if FolderPostoji(edit1.Text + myarray)=true then begin
label1.caption:='postoji ' + myarray;
sleep(3);//izbaci
break; //probaj ovako ako ti vec funkcija radi
end;
end;
end;
Potpis
Arduino Control Center
Re: Arrays i ispis na Label 10.10.2011. u 20:06 · pre 183 meseci #6
Joj ljudi spasili ste pe probao sam sva rijesenja , izabrao sam jednu soluciju , izbacio sleep i boolean kod if-a.
A sto mrzim kad mi se dogode te male greskice...
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme