Ist noch nicht ganz fertig, alles nach dem showmessage ist noch fehlerhaft, ich suche da grad dran, wieso er die Abfrage immer false hat. (12to22 ist der hintere Teil eines ListBox-Eintrags, der identisch mit einem String innerhalb eines Datenarrays ist).
Code:
function findIndex(index: integer): integer;
var str,search: string; i: integer;
begin
try
begin
search:='';
str:='';
str:=Form1.ListBox1.Items[index+1];
for i := 12 to 22 do
search:=search+str[i];
showmessage(search+' text');
for i := 0 to dataanzahl-1 do
if sitzung[i].datum=search then
begin
result:=i;
break;
end;
end;
except
showmessage('Eintrag nicht gefunden!');
end;
end;