Vlastní funkce na TStringList sort (D7) – Delphi – Fórum – Programujte.com

Mohl by mi někdo poradit jak na D7 uspořádat 2-3 seznamy typu TStringList aby byla zachována relace mezi seznamy?? Jedna se o toto:

var otazky,odpovedi,cisla_otazek TString;
begin
otazky := TStringList.create;
odpovedi := TStringList.create;
cisla_otazek := TStringList.create;
otazky.add('B?'); otazky.add('C?'); otazky.add('A?');
odpovedi.add('b)'); odpovedi.add('c)'); odpovedi.add('a)');
cisla_otazek.add('0'); cisla_otazek.add('1'); cisla_otazek.add('2');
end;

cisla_otazek odpovídají indexům v pořadí jak otázky a odpovědi byly načteny ze souboru... Otázky jsou zprvu neuspořádané, což je zprvu žádoucí... Ukládám si tedy čísla těch otázek, abych věděl zda uživatel odpověděl správně nebo špatně. Když ale chci uspořádat otazky, nemohu použít funkci sort.

Potřebuji funkci, která mi uspořádá pole odpovedi abecedně vzestupně, ale stejným způsobem uspořádá i otázky a cisla_otazek - tzn. že porovnávat se má podle odpovedi. Když se tedy odpovedi posune o jedna dolu, musí se dolů posunout i otazky a cisla_otazek. Dá se toto provést?

#1 oxidián
jsi tu dlouho nebyl :)

no tvůj problém je, že sorty běží nezávisle jen na daném listu, máš několik možností:

- vlastní sort nejspíš jako samostatná funkce, když to chceš aplikovat na několik listů

- 2 pole na mapu indexů otázek a odpovědí, čísla mít na konci stringů a po seřazení regenerovat odpovídající mapu indexů

- vlastní record nebo třída obdobná slovníku (otázka, odpověď, číslo) a opět nutno vytvořit vlastní sort funkci

popřípadě by mohlo být shůdným řešením využití možnosti TStringListu s párováním key=value

Dlouho jsem tu nebyl protože jsem dva roky nepracoval na projektu výuky hebrejštiny a minulý rok jsem se zabýval jinými věcmi jako lexikony a zpracování audia (myslím že jsem tu na to téma založil otázku a nikdo s tím neporadil). Mě šlo o dekódování audio sample a takové věci. No a teď zrovna řeším toto:

V D7 mi to hlásí chybu jak se so TStringList mistakes snažím přidat nový záznam, do kterého chci následně přičítat znaky. mistakes2D[i].wrong_answers_current_arr obsahuje byty v hodnotě od 0 do 223, většinou se hodnota pohybuje kolem 0 až 15 nebo 0 až 25 podle toho kolik je v souboru slovíček.

procedure zkompletovat_mistakes;
var s: string;
    i,n: integer;
begin
  mistakes.clear;
  for i := 0 to length(mistakes2D)-1 do
    begin
    mistakes.add('');// every wrong answer must be tracked wrong within a question record
    for n := 0 to length(mistakes2D[i].wrong_answers_current_arr)-1 do
      begin
        mistakes[i] := '"';// mistakes[i]+chr(mistakes2D[i].wrong_answers_current_arr[n]+32);
      end;
    setlength(mistakes2D[i].wrong_answers_current_arr, 0);
    end;
end;

Ta chyba je Raised exception class EStringListError .... Operation not allowed on sorted list.

Nevím o tom, že by ten list byl řazený. A nechápu proč to teda nejde nebo jak to tam mám dostat. Ale možná na to raději udělám normální pole místo listu.

Řazený list nejspíš nejde měnit, protože by se tím narušilo řazení. Mělo by to jít vypnout nastavenim .Sorted na False.

Taky si nejsem jistý, jestli automaticky roste, tj. jestli po .clear můžeš přidávat pomocí [i].

Aha, ještě je tam před tím .add, takže to indexování je OK.

Ty jo tak to mě vůbec nenapadlo, že by tam mohla být tahle vlastnost, když to není formulář.Tak jsem použil

mistakes.sorted := false;

a už to chybu nedělá. Ale já si nikdy nevšiml, že by se ty seznamy řadili. U TListBox jo když to zapnu.