Zitat von
Sharky:
Zitat von
H3v3n:
Naja, sorry, aber bei mir geht das absolut nich
Gibt es da nicht noch eine Lösung?
a) Ohne etwas Quellcode kann dir keiner helfen
b) Schreibe doch einmal was Du machen möchtest!! Eventuell ist eine StringList ja doch besser für dich.
Also, na gut.
Ich baue einen Chatbot für ICQ. Dieser hat Bedingungen (Fragen gestellt, hat diese UIN den Bot beleidigt usw.) So und jetzt muss ich Bedingungen aus einer "Datenbank" (INI-File) lesen und diese auswerten. Aber da die schöne Funktion Split (irgendwo mal in einem Tipps & Tricks-Verzecihnis gefunden, nachgeschrieben dann) immer nur an den Array of String anhängt, muss ich ihn leeren. Und deshalb brauche ich eine Funktion die ALLES in dem Array zurücksetzt, als währe er noch gar nicht definiert worden. Jetzt mal ein wenig Code:
Code:
bedingok := 0;
splited2 := split(datenini.ReadString(IntToString(i), 'bedingungen', ''), '|');
for d:=0 to length(splited2)-1 do begin
if not (splited2[d] = '') then
begin
// HIER müsste ich jetzt splited3 zurücksetzen ...
splited3 := split(splited2[d], ':');
end;
if splited3[1] = 'NONE' then
begin
splited3[1] := '';
end;
if (ini.ReadString(UIN, splited3[0], '') = splited3[1]) then
begin
bedingok := bedingok + 1;
end;
end;
Hoffe das der Code soweit verständlich ist ...