wie benutze ich regular expressions?

[nat]

tja, so müsst ich raten...
könnte noch daran liegen: LiBoPicsFoundInPages.Items[i]:=filename; hat die listbox denn schon sovielel emente? sonst mußte du
 LiBoPicsFoundInPages.Items.Add(filename); machen.
wenn das nich geholfen hat, dann debugge deinen code mal und sage mir bei welcher
zeile genau der fehler kommt.

edit:
i.ü. ist das ziemlich ungünstig
filename:=copy(re.Match[1],idx+1,40) was machste denn wenn du dateien hast die mehr als 40 zeichen haben?
besser du machst da was mit length(Match[1])

[nimmersattXD]

puuh jetzt kommt zwar die fehlermeldung immernoch, aber wenigstens fuellt sich meine listbox mit bildernamen *freu*

[nahpets]

Hallo,

Du hast am Ende einen Fehler in der Repeatschleife, du suchst da zweimal die nächste Übereinstimmung.

Delphi-Quellcode:

such:=re.Exec(page.Text); 
if such then 
repeat 
  idx:=LastPos('/',re.match[1]); 
  if idx > 0 then filename:=copy(re.Match[1],idx+1,40) 
    else filename:=re.match[1]; 
  LiBoPicsFoundInPages.Items[i]:=filename; 
//  such:=re.ExecNext  <-- der ist zuviel!!!
until not re.ExecNext;

eigentlich sollte

Delphi-Quellcode:

if re.Exec(page.Text) then 
repeat 
  idx:=LastPos('/',re.match[1]); 
  if idx > 0 then filename:=copy(re.Match[1],idx+1,40) 
    else filename:=re.match[1]; 
  LiBoPicsFoundInPages.Items[i]:=filename; 
until not re.ExecNext;

reichen.

[nat]

hatte ich eben auch noch gesehen. aber eigentlich dürfte das keine zugriffsverletzung auslösen.
höchstens ne expception.

edit: und ich warte noch immer auf die zeile in der es knalle...

[nimmersattXD]

danke fuer den post, aber wenn ich das auskommentiere kommt meine fehlermeldung immernoch! menno


edit: achja das mit dem debuggen, wie mache ich das denn?

[nahpets]

Hallo,

einen habe ich noch:for i:=0 to LiBoSit.Count do bitte ändern infor i:=0 to LiBoSit.Count - 1 do Du greifst da regelmäßig auf einen nicht existierenden Eintrag zu.

[nat]

oh ha, du solltest ma n delphi-crashkurs machen... 8)
klicke links neben einer zeile auf den punkt oder was auch immer da is.
wenn die zeile sich einfärbt haste da n breakpoint gesetzt.
wenn dein programm dort ankommt hält es an. mit F7 bzw F8 kannst du schritt
für schritt durch deine anweisungen durch gehen. mit F9 läuft es wieder
normal weiter.

[nimmersattXD]

crash kurs?? ja mmh mein lehrer hatte mir das mal gezeigt, aba wusste nich das das so heißt


ok also der hat mit meinem loadfromfile am anfang der zählschleife probleme, da kommt dann die fehlermeldung, aber erst wenn die zählschleife bei 1 is, 0 macht sie komplett durch!

komisch weil der pfad eigentlich bei allen htmls ähnlich is

[nat]

du gibst page ja auch im ersten schleifen durchlauf mit free frei.
danach ist page kein object mehr und ein zugriff darauf gibt eine
zugriffsverletzung.

stell das in etwa so um:

Delphi-Quellcode:

page := TStringList.Create; //oder was page auch is, grad nich geguckt
try
  for i:=.....
  begin
  end;
finally
  page.free;
end;

[nimmersattXD]

klingt logisch und funst auch *freu* könnt dich knuddeln