Listbox: Inhalt formatierter Zeilen auf Variablen verteilen

[Silentium]

Danke für die Info

Aber ne kleine Veränderung musste aber dennoch rein, damit das TAB nicht angezeigt wird:

Delphi-Quellcode:

RandomStr := ListBox1.Items[Random(ListBox1.Items.Count -1)];
Spanisch := Copy(RandomStr, 1, pos(Char(VK_TAB), RandomStr)-1);
Deutsch := Copy(RandomStr, pos(Char(VK_TAB), RandomStr) + 1, length(RandomStr));