TStringList bringt mich zum VerZweiFeln

[Hawkeye219]

Zitat von Spiderpig_GER_15:

aber da ist doch garkein indexOf, zumindest nicht direkt, welches meinst du denn?

Wenn sich mein Editor nicht verzählt hat, sind es 50 IndexOf-Aufrufe. Verdächtig sind alle, die du unkontrolliert für einen Zugriff auf eine Stringliste verwendest.

Gruß Hawkeye

[Spiderpig_GER_15]

huch? wie schaut man sowas?

EDIT: jetzt sag nicht mit der "Suche"

[Matze]

Geht's nun oder nicht? Bleib doch mal beim Thema.

Edit: zu deinem OT s. Anhang.

[Spiderpig_GER_15]

zum Thema: Ich hab grad alles so gemacht wie ihr es gesagt habt, sprich alle begins die stören könnten weg.

Momentan wird die Stelle garnicht mehr ausgeführt, weil die Bedingungen nicht mehr erfüllt werden, bin grade beim Fehler suchen.
Ich meld mich dann gleich nochmal

[Spiderpig_GER_15]

Hier jetzt verbessert:

Delphi-Quellcode:

unit MainCalcPart;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

  procedure VokCalc;

implementation

uses Frame;

procedure VokCalc;
var StrList: TStringList;
    iI, kI, lI, jI: Integer;
begin
  StrList:= TStringList.Create;
  Frame_1.SVoksToDo.Clear;
  StrList.Clear;

  randomize;

  //3 Neue Vokabeln
  for iI := 1 to 3 do
  begin
    If (Frame_1.LastVokIndex+1) <= Frame_1.OverAllVok then
    begin
      inc(Frame_1.LastVokIndex);
      Frame_1.SVoksToDo.Add(Frame_1.savestring[Frame_1.savestring.IndexOf('NR' + inttostr(Frame_1.LastVokIndex))+7]);
    end;
  end;

  //5 aus Aktueller Lektion
  for iI := 1 to Frame_1.OverAllVok do
  begin
    If  (strtoint(Frame_1.savestring[(Frame_1.savestring.IndexOf('NR'+ inttostr(iI)) + 5)]) = Frame_1.acuteLekt) then
    begin
      If Frame_1.SVoksToDo.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
      begin
        if StrList.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
        begin
          StrList.Add(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]);
        end;
      end;
    end;
  end;
  if StrList.Count >= 5 then
  begin
    Frame_1.SVoksToDo.Add(StrList[random((StrList.Count-1) div 5)]);
    Frame_1.SVoksToDo.Add(StrList[random((StrList.Count-1) div 5)+ (1*((StrList.Count) div 5))]);
    Frame_1.SVoksToDo.Add(StrList[random((StrList.Count-1) div 5)+ (2*((StrList.Count) div 5))]);
    Frame_1.SVoksToDo.Add(StrList[random((StrList.Count-1) div 5)+ (3*((StrList.Count) div 5))]);
    Frame_1.SVoksToDo.Add(StrList[random(((StrList.Count-1) div 5) + ((StrList.Count) mod 5)) + (4*((StrList.Count) div 5))]);
    StrList.Clear;
  end;

  //2 Problemfälle aus akt. Lektion
  for Ii := 1 to Frame_1.OverallVok do
  begin
    If  (strtoint(Frame_1.savestring[(Frame_1.savestring.IndexOf('NR'+ inttostr(iI)) + 5)]) = Frame_1.acuteLekt) then
    begin
      If Frame_1.SVoksToDo.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
      begin
        if Frame_1.savestring[Frame_1.savestring.IndexOf('Nr' + inttostr(iI)) + 1] = '1' then
        begin
          if StrList.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
          begin
            if ((strtofloat(Frame_1.savestring[Frame_1.savestring.IndexOf('NR' + inttostr(iI)) + 2])) /
                 (strtofloat(Frame_1.savestring[Frame_1.savestring.IndexOf('NR' + inttostr(iI)) + 3]))) <
                   Frame_1.FailRatio then
            begin
              StrList.Add(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]);
            end;
          end;
        end;
      end;
    end;
  end;
  if StrList.Count >= 2 then
  begin
    iI:=random(StrList.Count);
    Frame_1.SVoksToDo.Add(StrList[iI]);
    repeat
      kI:=random(StrList.Count);
    until kI <> iI;
    Frame_1.SVoksToDo.Add(StrList[kI]);
  end;
  StrList.Clear;


  //3 Problemfälle aus letzten beiden Lektionen
  for iI := 1 to Frame_1.OverAllVok do
  begin
    If  ((strtoint(Frame_1.savestring[(Frame_1.savestring.IndexOf('NR'+ inttostr(iI)) + 5)])) >= Frame_1.acuteLekt -2) and
            ((strtoint(Frame_1.savestring[(Frame_1.savestring.IndexOf('NR'+ inttostr(iI)) + 5)])) < Frame_1.acuteLekt) then
    begin
      If Frame_1.SVoksToDo.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
      begin
        if Frame_1.savestring[Frame_1.savestring.IndexOf('Nr' + inttostr(iI)) + 1] = '1' then
        begin
          if StrList.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
          begin
            if ((strtofloat(Frame_1.savestring[Frame_1.savestring.IndexOf('NR' + inttostr(iI)) + 2])) /
                 (strtofloat(Frame_1.savestring[Frame_1.savestring.IndexOf('NR' + inttostr(iI)) + 3]))) <
                   (Frame_1.FailRatio - 0.2) then
            begin
              StrList.Add(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]);
            end;
          end;
        end;
      end;
    end;
  end;
  if StrList.Count >= 3 then
  begin
    iI:=random(StrList.Count);
    Frame_1.SVoksToDo.Add(StrList[iI]);
    repeat
      kI:=random(StrList.Count);
    until kI <> iI;
    Frame_1.SVoksToDo.Add(StrList[kI]);
    repeat
      lI:=random(StrList.Count);
    until (lI <> iI) and (lI <> kI);
    Frame_1.SVoksToDo.Add(StrList[lI]);
  end;
  StrList.Clear;

  //2 Zufall

  for iI := 1 to Frame_1.OverAllVok do
  begin
    If ((strtoint(Frame_1.savestring[(Frame_1.savestring.IndexOf('NR'+ inttostr(iI)) + 5)])) < Frame_1.acuteLekt) then
    begin
      If Frame_1.SVoksToDo.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
      begin
        if Frame_1.savestring[Frame_1.savestring.IndexOf('Nr' + inttostr(iI)) + 1] = '1' then
        begin
          if StrList.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
          begin
            StrList.Add(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]);
          end;
        end;
      end;
    end;
  end;
  if StrList.Count >= 2 then
  begin
    iI:=random(StrList.Count);
    Frame_1.SVoksToDo.Add(StrList[iI]);
    repeat
      kI:=random(StrList.Count);
    until kI <> iI;
    Frame_1.SVoksToDo.Add(StrList[kI]);
  end;
  StrList.Clear;

  // Auffüllen etwaiger Lücken
  if Frame_1.SVoksToDo.Count < 15 then
  begin
    // 2 Zufall
    for iI := 1 to Frame_1.OverAllVok do
    begin
      If ((strtoint(Frame_1.savestring[(Frame_1.savestring.IndexOf('NR'+ inttostr(iI)) + 5)])) < Frame_1.acuteLekt) then
      begin
        If Frame_1.SVoksToDo.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
        begin
          if Frame_1.savestring[Frame_1.savestring.IndexOf('Nr' + inttostr(iI)) + 1] = '1' then
          begin
            if StrList.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
            begin
              StrList.Add(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]);
            end;
          end;
        end;
      end;
    end;
    if StrList.Count > 0 then
    begin
      if Frame_1.SVoksToDO.Count = 1 then
      begin
        Frame_1.SVoksToDo.Add(StrList[random(StrList.Count)]);
      end
      else
      begin
        iI:=random(StrList.Count);
        Frame_1.SVoksToDo.Add(StrList[iI-1]);
        repeat
          kI:=random(StrList.Count);
        until kI <> iI;
        Frame_1.SVoksToDo.Add(StrList[kI-1]);
      end;
    end;
    iI:=15-Frame_1.SVoksToDo.Count;
    if (iI >= 1) and (Frame_1.LastVokIndex <= Frame_1.OverAllVok) then
    begin
    showmessage('wird ausgeführt');
      for jI := 1 to iI do
      begin
        If not (Frame_1.LastVokIndex > Frame_1.OverAllVok) then
        begin
          inc(Frame_1.LastVokIndex);
          If Frame_1.SVoksToDo.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(Frame_1.LastVokIndex))+7]) = (-1) then
          begin
            Frame_1.SVoksToDo.Add(Frame_1.savestring[Frame_1.savestring.IndexOf('NR' + inttostr(Frame_1.LastVokIndex))+7]);
          end;
        end
        else
        begin
          break;
        end;
      end;
    end;

    if (iI >= 1) and (Frame_1.LastVokIndex > Frame_1.OverAllVok) then
    begin
      for iI := 1 to Frame_1.OverAllVok do
      begin
        If Frame_1.SVoksToDo.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
        begin
          if Frame_1.savestring[Frame_1.savestring.IndexOf('Nr' + inttostr(iI)) + 1] = '1' then
          begin
            if StrList.IndexOf(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]) = (-1) then
            begin
              StrList.Add(Frame_1.savestring[Frame_1.savestring.indexOf('NR' + inttostr(iI))+7]);
            end;
          end;
        end;
      end;
      for kI:=1 to (15 - Frame_1.SVoksToDo.count) do
      begin
        // lI:= random(StrList.Count)+1;
        Showmessage('gehhht');
        //=========>
        Frame_1.SVoksToDo.Add('geh doch, mannooo');  //mache ich es weg geht's, andernfalls der Error!
        //<=========
        //StrList.Delete(lI - 1);
      end;
      StrList.Clear;
    end
    else
    showmessage('ERROR');
  end;
  StrList.Clear;
end;
end.

Ist die makierte Zeile weg geht es, andernfalls nicht...
immer noch nicht

[hamburcher]

@mkinzler: Über neunzehntausend Posts in der DP, ist das nicht toll, Aldäh...

Kommst Du ins Guiness-Buch der Weltrekorde, Aldäh...

Weshalb bist Du noch kein Moderator in der DP geworden, Aldäh...

Too hard to handle?

[Spiderpig_GER_15]

wow, stimmt,

hat aber noch jemand btw ne Idee für mein Problem???

[mkinzler]

Für den Code mal in Einzelschritten aus.

[Spiderpig_GER_15]

wie geht das

[toms]

Zitat von Spiderpig_GER_15:

wie geht das

Tipp: Klick mal aufs Menü "Ausführen"