Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#6

Re: löschen in txt

  Alt 19. Jan 2007, 16:58
Hallo Sascha,

die Lehrerliste würde ich in einer globalen Variable (LehrerListe: TStringList) mitführen. Diese Liste sollte sortiert sein (Sorted = True, Duplicates = dupIgnore). Dann kannst du diese Liste jederzeit in eine ListBox übernehmen oder nach Veränderungen auf externem Speicher sichern.

Delphi-Quellcode:
var
  LehrerListe: TStringList;
  fnLehrerListe: TFileName;
  sLehrer: String;
  iLehrer: Integer;

begin
  LehrerListe := TStringList.Create;
  LehrerListe.Sorted := True;
  LehrerListe.Duplicates := dupIgnore;

  fnLehrerListe := ExtractFilePath(ParamStr(0)) + 'LehrerListe.txt';
  LehrerListe.LoadFromFile(fnLehrerListe); // laden
  LehrerListe.SaveToFile(fnLehrerListe); // speichern
  ListBox.Items.Assign(LehrerListe); // übernehmen
  
  LehrerListe.Add(sLehrer); // Eintrag hinzufügen ohne Doppelung
  if LehrerListe.Find(sLehrer, iLehrer) then
    LehrerListe.Delete(iLehrer); // Eintrag entfernen
end;
Freundliche Grüße
  Mit Zitat antworten Zitat