Morgen Leute,
ich habe folgendes Problem: Ich habe in einer Textdatei mehrere Zeilen an Text stehen, der so formatiert
ist:
Spanische Vokabel [TAB] deutsche Vokabel
Diese Textdatei lade ich in eine Listbox. Nun möchte ich, mit Hilfe eines Algorithmus, von einer
zufällig aufgewählten Zeile die spanische Vokabel in eine Variable, die deutsche in eine andere Variable
geschrieben haben.
Meine Idee dazu:
Delphi-Quellcode:
...
type
TStringArray = Array[0..1] of string;
...
function Zufallsaufgabe(ListBox:TListBox):TStringArray;
var zufallszahl,Listboxzeilen,i:integer;
zeile,spanisch,deutsch:string;
nochspanisch:boolean;
return:TStringArray;
Begin
randomize;
nochspanisch := true;
deutsch := '';
spanisch := '';
listboxzeilen := Listbox.Count;
zufallszahl := Random(listboxzeilen-1);
zeile := Listbox.Items.Strings[zufallszahl];
for i := 0 to (length(zeile)-1) do begin
if zeile[i] = chr(9) then //wenn dieses Zeichen TAB ist, dann folgt die deutsche Vokabel
nochspanisch := false
else begin
if nochspanisch = true then
spanisch := spanisch + zeile[i]
else
deutsch := deutsch + zeile[i];
End;
End;
return[0] := spanisch;
return[1] := deutsch;
result := return;
End;
...
procedure TForm1.Button1Click(Sender: TObject);
var aufgabe:TStringArray;
begin
aufgabe := Zufallsaufgabe(ListBox1);
Edit1.Text := aufgabe[0]+' '+aufgabe[1];
end;
Mein Problem hierbei: Die Edit bleibt leer.
Bitte hülft mir
Danke im Voraus
Silentium