löschen in txt

[marabu]

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