delphi - image det ene efter det andet - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

<< < 1 2 3 > >>

Bruger #3976 @ 02.06.05 12:48

Hvordan laver jeg en knap der kan vise
billeder (jpg) det ene efter det andet i en image1.picture ?
De må gerne vises i samme størrelse ?
Jeg har set om jeg kunne finde noget men det er ikke
lykkes ude på www.
Jeg tænkte første gang at at en timer kunne vise dem
en ad gangen med en interval, men det viser
sig er være noget vanskeligere end beregnet !

tarsankode

Beklager det kan jeg ikke.
Har du ikke sådan en ganske almindelig dødelig en der viser
næste billed og så videre ?
Koden giver en Varilation general fejl og fryser hele PCen.

Jeg har 5 bøger om Delphi men ingen af dem
viser en billed det ene efter det andet ? mærkeligt !

Kan det hedde fx image + 1 eller sådan noget ?
Kan det laves med knap der skifter caption og
if then else ?
Eller en select case ?

Bare noget almindeligt og ikke de det strings stæninger
dem har jeg aldrig fået til at virke !

[Redigeret d. 02/06-05 17:17:36 af Tarsankode]

24 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #3976 @ 02.06.05 15:22

// der skal altså stå [ i ] efter strings dog uden mellerummene

den der linje fatter jeg heller ikke hvad du mener med ?
Så go er jeg ikke !

tarsankode

Angående Stringlist skal du i tilføje Stringlist: TStringList under var i toppen af unitten og under onCreate skal du skrive StringList:= TStringlist.Create;

Angående linjen: Du skal blot skrive [ i ] efter ordet strings i linjen. Bare uden mellemrummene mellem [ og i og i og ]. Det er fordi udviklerens forum system tror at jeg mener at jeg vil lave teksten om til italic og derfor fjerner den det hvis du skrive [ i ] uden mellemrum. Håber du forstår nu

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Det er da første gang jeg laver en stringliste.
Har ofte prøvet, uden held.

Beklager det er så tumpet.

den fejler endnu :

if i = Stringlist.Count then i = 0;

[Error] mitlivpas.pas(123): ':=' expected but '=' found

tarsankode

Det ku den godt nok ikke lide :

[Warning] mitlivpas.pas(54): Variable 'w' might not have been initialized

tarsankode

Bruger #4468 @ 02.06.05 15:34

221

Haha du har bare glemt en :

linien skal se sådan ud:

if i = Stringlist.Count then i := 0;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #3976 @ 02.06.05 17:19

Haha du har bare glemt en :

linien skal se sådan ud:

if i = Stringlist.Count then i := 0;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

UPS hvordan tilføjer man en besvarelse ? her ?

Det kan være jeg bare (suk) skal lave den i html.

(se ovenfor kommentar)

tarsankode

Bruger #4468 @ 02.06.05 18:13

221

Haha du har bare glemt en :

linien skal se sådan ud:

if i = Stringlist.Count then i := 0;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

UPS hvordan tilføjer man en besvarelse ? her ?

Det kan være jeg bare (suk) skal lave den i html.

(se ovenfor kommentar)

tarsankode

Virker koden ikke nu da?

Bruger #3976 @ 02.06.05 18:36

Haha du har bare glemt en :

linien skal se sådan ud:

if i = Stringlist.Count then i := 0;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

UPS hvordan tilføjer man en besvarelse ? her ?

Det kan være jeg bare (suk) skal lave den i html.

(se ovenfor kommentar)

tarsankode

Virker koden ikke nu da?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

jjoo ? : ) det gør den nok Rune, jeg er alt for tumpet til
at finde ud af det.
Når jeg starter programmet er det ingen fejl men når
jeg trykker på knappen får jeg en mega fejl der fryser
hele PCen !

Der kommer en boks op med noget fejl tekst men jeg
ved ikke hvad det er der står ?

tarsankode

Bruger #4468 @ 02.06.05 18:40

221

Haha ups.. Ved godt hvorfor nu. Har lige rettet koden og gjort den lidt nemmere at forstå. Poster den lige når jeg har spist om 10 minutter.

Undskyld for alt besværet

hehe

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4468 @ 02.06.05 19:00

221

Okay her er den virkende kode så

Først en procedure:

Kode

Procedure TForm1.LoadFiles(Dir, Ext: String);
var SearchRec: TSearchRec; InclDir: Boolean;
begin
Stringlist.Clear;
  FindFirst(Dir+'*'+Ext, faAnyFile, SearchRec); 
    Stringlist.Add(SearchRec.Name);
  while (FindNext(SearchRec)=0) do begin
      Stringlist.Add(SearchRec.Name);
  end;
   FindClose(SearchRec);
    if Stringlist.Text > '' then
 begin
 if i = Stringlist.Count then i := 0;
Image1.Picture.LoadFromFile(Dir+Stringlist.Strings[ i ]); // Mellemrummene mellem [ og i skal fjernes!!
i:= i +1;
end;
end;

I Formens OnCreate indsætter du følgende:

Kode

StringList:= TStringlist.Create;
i:= 0;

Og i den knap som skal skifte billede indsætter du følgende:

Kode

LoadFiles(ExtractFilePath(application.ExeName), 'jpg');

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 02/06-05 19:02:06 af Rune Jensen (RoZ)]

[Redigeret d. 02/06-05 19:02:27 af Rune Jensen (RoZ)]

Bruger #3976 @ 02.06.05 21:55

Okay her er den virkende kode så

Først en procedure:
Kode
Procedure TForm1.LoadFiles(Dir, Ext: String);
var SearchRec: TSearchRec; InclDir: Boolean;
begin
Stringlist.Clear;
  FindFirst(Dir+'*'+Ext, faAnyFile, SearchRec); 
    Stringlist.Add(SearchRec.Name);
  while (FindNext(SearchRec)=0) do begin
      Stringlist.Add(SearchRec.Name);
  end;
   FindClose(SearchRec);
    if Stringlist.Text > '' then
 begin
 if i = Stringlist.Count then i := 0;
Image1.Picture.LoadFromFile(Dir+Stringlist.Strings[ i ]); // Mellemrummene mellem [ og i skal fjernes!!
i:= i +1;
end;
end;
I Formens OnCreate indsætter du følgende:
Kode
StringList:= TStringlist.Create;
i:= 0;
Og i den knap som skal skifte billede indsætter du følgende:
Kode
LoadFiles(ExtractFilePath(application.ExeName), 'jpg');
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 02/06-05 19:02:06 af Rune Jensen (RoZ)]

[Redigeret d. 02/06-05 19:02:27 af Rune Jensen (RoZ)]

Nob !

Procedure TForm1.LoadFiles(Dir, Ext: String);

[Error] mitlivpas.pas(179): Declaration of 'LoadFiles' differs from previous declaration

tarsankode

Bruger #4468 @ 02.06.05 23:03

221

Okay her er den virkende kode så

Først en procedure:
Kode
Procedure TForm1.LoadFiles(Dir, Ext: String);
var SearchRec: TSearchRec; InclDir: Boolean;
begin
Stringlist.Clear;
  FindFirst(Dir+'*'+Ext, faAnyFile, SearchRec); 
    Stringlist.Add(SearchRec.Name);
  while (FindNext(SearchRec)=0) do begin
      Stringlist.Add(SearchRec.Name);
  end;
   FindClose(SearchRec);
    if Stringlist.Text > '' then
 begin
 if i = Stringlist.Count then i := 0;
Image1.Picture.LoadFromFile(Dir+Stringlist.Strings[ i ]); // Mellemrummene mellem [ og i skal fjernes!!
i:= i +1;
end;
end;
I Formens OnCreate indsætter du følgende:
Kode
StringList:= TStringlist.Create;
i:= 0;
Og i den knap som skal skifte billede indsætter du følgende:
Kode
LoadFiles(ExtractFilePath(application.ExeName), 'jpg');
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 02/06-05 19:02:06 af Rune Jensen (RoZ)]

[Redigeret d. 02/06-05 19:02:27 af Rune Jensen (RoZ)]
Nob !

Procedure TForm1.LoadFiles(Dir, Ext: String);

[Error] mitlivpas.pas(179): Declaration of 'LoadFiles' differs from previous declaration

tarsankode

Jo den virker

Du skal bare sørge for at deklarere proceduren rigtigt. Under private skal der stå:
Procedure LoadFiles(Dir, Ext: String);

Du har blot skrevet et eller andet forkert der.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #3976 @ 03.06.05 00:16

Okay her er den virkende kode så

Først en procedure:
Kode
Procedure TForm1.LoadFiles(Dir, Ext: String);
var SearchRec: TSearchRec; InclDir: Boolean;
begin
Stringlist.Clear;
  FindFirst(Dir+'*'+Ext, faAnyFile, SearchRec); 
    Stringlist.Add(SearchRec.Name);
  while (FindNext(SearchRec)=0) do begin
      Stringlist.Add(SearchRec.Name);
  end;
   FindClose(SearchRec);
    if Stringlist.Text > '' then
 begin
 if i = Stringlist.Count then i := 0;
Image1.Picture.LoadFromFile(Dir+Stringlist.Strings[ i ]); // Mellemrummene mellem [ og i skal fjernes!!
i:= i +1;
end;
end;
I Formens OnCreate indsætter du følgende:
Kode
StringList:= TStringlist.Create;
i:= 0;
Og i den knap som skal skifte billede indsætter du følgende:
Kode
LoadFiles(ExtractFilePath(application.ExeName), 'jpg');
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 02/06-05 19:02:06 af Rune Jensen (RoZ)]

[Redigeret d. 02/06-05 19:02:27 af Rune Jensen (RoZ)]
Nob !

Procedure TForm1.LoadFiles(Dir, Ext: String);

[Error] mitlivpas.pas(179): Declaration of 'LoadFiles' differs from previous declaration

tarsankode
Jo den virker Du skal bare sørge for at deklarere proceduren rigtigt. Under private skal der stå:
Procedure LoadFiles(Dir, Ext: String);

Du har blot skrevet et eller andet forkert der.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Beklager jeg har slettete den nu.
Den var HELT umulig.
Jeg giver op !
En hel dag og kun fejl og atter fejl.
Det er ALT for svært på den måde !

Jeg tænkte at jeg kunne rette denne til men
det gik heller ikke :

function StringToCaseSelect
(Selector : string;
CaseList: array of string): Integer;
var cnt: integer;
begin
Result:=-1;
for cnt:=0 to Length(CaseList)-1 do
begin
if CompareText(Selector, CaseList[cnt]) = 0 then
begin
Result:=cnt;
Break;
end;
end;
end;

{
Usage:

case StringToCaseSelect('Delphi',
['About','Borland','Delphi']) of
0

howMessage('You''ve picked About') ;
1

howMessage('You''ve picked Borland') ;
2

howMessage('You''ve picked Delphi') ;
end;

SÅ SLUT HERFRA !

Tak fordi du gad forsøge.
Måske skal vi ha et newbien rum !

Det du laver ligger lysår fra hvad jeg kan

tarsankode

<< < 1 2 3 > >>

image det ene efter det andet

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler