AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Endlosschleife, finde sie nicht, hilfe!

Ein Thema von Sh4dd4r · begonnen am 4. Sep 2008 · letzter Beitrag vom 4. Sep 2008
 
Sh4dd4r

Registriert seit: 29. Jul 2008
17 Beiträge
 
#1

Endlosschleife, finde sie nicht, hilfe!

  Alt 4. Sep 2008, 12:37
ich bin es schritt für schritt durchgegangen und habs hinbekommen... jetzt hab ich nurnoch 1 problem. wenn ich mein programm starte und eine bestimmte sache mache hängt es sich auf, ohne fehlermeldung... das liegt normalerweise an einer endlosschleife oder? oder kann es noch an etwas anderem liegen?

könnte es sein dass eine for i:=1 to 2800 schleife zu lange braucht? hier hab ich sie:

Delphi-Quellcode:
procedure TForm1.WortWandel;
var zeile: string; b,h: integer;
begin
  WList1.NumberOfWords:=0;

// Textdatei wird lesbar gemacht

  AssignFile(wordlist1,'wordlist1.txt');
  reset(wordlist1);

  // Einlesen bestimmter Zeilen der Textdatei


    for h:=1 to Anzahl_Zufallszahlen do begin
      for b:=1 to (Zufallszahlen[h]-1) do begin
        readln(wordlist1);
      end;
      readln(wordlist1,zeile);
      WList1.word[h]:=zeile;
    end;
    WList1.NumberOfWords:=Anzahl_Zufallszahlen;
  CloseFile(wordlist1);
end;
die schleife mit b läuft bis zu einer zufallszahl (damit wird eine zufällige zeile aus einem textdokument angewählt und anschließend in ein array gespeichert.
schleife mit h wird so oft durchlaufen, wieviele zufällige zeilen der benutzer möchte... hab im testlauf da mal 10 angegeben. kann das den pc überlasten oder länger als 1 sek dauern?
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz