Einzelnen Beitrag anzeigen

janjan

Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
 
Delphi 4 Standard
 
#3
  Alt 10. Mär 2003, 11:04
Du könntest es ungefähr so machen:

Delphi-Quellcode:
IgnoreList:= Tstring.Create;
IgnoreList.LoadFromFile('IgnoreList.txt')
Damit hast du erst mal alle Namen in einer Liste. Wenn jetzt ein neuer User hinzukommt kannst du den einfach mit allen Namen auf der Liste vergleichen:

Delphi-Quellcode:
var NickIstAufListe: Boolean;
.
.
.

NickIstAufListe:= False;
for i:= 0 to Ignorelist.Count - 1 do
  begin
    if CompareText(IgnoreList[i], ZuUeberPruefenderNickName) = 0 then
      begin
        NickIstAufListe:= True;
        Break;
      end;
  end;
Die Wichtigkeit eines Postings im Forum ist reziprok zur Anzahl der enthaltenenen, kumulierten Ausrufungszeichen!!!
  Mit Zitat antworten Zitat