Einzelnen Beitrag anzeigen

Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#6

Re: nach String suchen und den nachfolgenden String verwende

  Alt 31. Okt 2006, 14:47
Hallo Matthias123,

kannst du den Aufbau der Textdatei ändern? Ich würde dir zu einem anderen Trennzeichen raten, um eventuelle Fehler zu vermeiden. Wie gehst du beispielsweise mit Doppelnamen um, die nicht durch einen Bindestrich verbunden sind ("Hans Peter")?

Wenn du als Trennzeichen das "=" nimmst, kannst du die Eigenschaft Delphi-Referenz durchsuchenTStrings.Values der Stringliste nutzen:

Delphi-Quellcode:
var
  sl : TStringList;
  Rang : Integer;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('C:\Platz.txt');
  Rang := StrToIntDef(sl.Values['Hans Peter'], -1);
  sl.Free;
end;
Ab Delphi 2005 ist das Trennzeichen frei wählbar (NameValueSeparator).

Gruß Hawkeye
  Mit Zitat antworten Zitat