String mit einer Datei abgleichen

[blawen]

Wenn ich es richtig verstanden habe, suchst Du in der Liste einen einmaligen und daher eindeutigen String.
Wieso benutzt Du nicht .find oder .IndexOf?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Liste     : TStringList;
  Index     : Integer;
  bGefunden : Boolean;
begin
  Liste := TStringList.Create;
  try
    if OpenDialog1.Execute
    then begin
      Liste.LoadFromFile(OpenDialog1.FileName);
    end;

    // Findet den Eintrag nur mit dem Trennzeichen
    Label1.Caption := 'Der Suchstring ist in der Zeile: ' + IntToStr(Liste.IndexOf(Edit1.Text));

    // Findet den Eintrag nur mit dem Trennzeichen
    bGefunden := Liste.Find(edit1.text,Index);
    if bGefunden
      then Label2.Caption := 'Der Suchstring ist in der Zeile: ' + IntToStr(Index)
      else Label2.Caption := 'Nicht gefunden';

    // Meldet das erste gefundene Resultat
    // Findet auch Einträge, wenn das Trennzeichen nicht vorkommt
    // -> auch Teilstringe werden gefunden ('ab' -> 'abc,')
    // Allerdings musst Du hier mit einer Schleife arbeiten um sämtliche Einträge zu finden
    Liste.Find(edit1.text,Index);
    Label3.Caption := 'Der Suchstring ist in der Zeile: ' + IntToStr(Index);

  finally
    Liste.Free;
  end;
end;

[lucy]

Zitat:

Wenn ich es richtig verstanden habe, suchst Du in der Liste einen einmaligen und daher eindeutigen String.

Ja!

Schaue mir gleich mal Deinen Quelltext an.

[juergen]

Habe mal beide Varianten (pro Zahl eine Zeile mit Komma am Ende und alle Zahlen kommagetrennt in 1 Zeile) in ein hier Testprojekt angehangen.

Was ist bei dir nun anders, dass es bei dir nicht funktioniert?
Beachte List1.dat und List2.dat

[lucy]

Zitat:

Habe mal beide Varianten (pro Zahl eine Zeile mit Komma am Ende und alle Zahlen kommagetrennt in 1 Zeile) in ein hier Testprojekt angehangen.

Was ist bei dir nun anders, dass es bei dir nicht funktioniert?
Beachte List1.dat und List2.dat

hat die Fehlermeldung was mit meiner Delphi - Version XE7 zu tun?

[juergen]

Da wird deine Version das TArray<STRING> wohl noch nicht unterstützen.
Genau aus diesem Grunde sollte man seine Delphiversion in seinem Profil hinterlegen.

[juergen]

—-doppelter Post—-, gelöscht

[lucy]

Zitat:

Genau aus diesem Grunde sollte man seine Delphiversion in seinem Profil hinterlegen.

"wurde geändert"

[himitsu]

Ohh, eine Starter.

https://www.embarcadero.com/de/products/delphi/starter

Zu beachten: Die neuen Lizenzen sind nur noch ein Jahr gültig und müssen dann aktualisiert werden, sonst startet Delphi nicht mehr.
Und die neue CE-Lizenz ist auch nur mit der jeweils aktuellen Version gültig.

Keine Angst, deine alte Starter-Lizenz bleibt weiterhin (nahezu) unbegrenz gültig.

[hhcm]

Ist es nicht einfacher mit DelimitedText bzw. Commatext zu arbeiten?

Delphi-Quellcode:

 
  Liste := TStringList.Create;
  try
    // Entweder DelimitedText
    Liste.Delimiter := ',';
    Liste.DelimitedText := TFile.ReadAllText('List.dat');

    // Oder in diesem Fall noch einfacher CommaText
    Liste.CommaText := TFile.ReadAllText('List.dat');     

    // Mach was mit Liste
  finally
    Liste.Free;
  end;

Da sollte es egal sein, ob die Datei

So
---
12345,
4711,
0815

Oder so
---
12345,4711,0815

aufgebaut ist.
Ob es TFile bzw. ioutils bereits in XE7 gab weiss ich nicht.
Falls nicht, es gibt genügend Möglichkeiten eine Datei auszulesen.

[himitsu]

Bei DelimitedText unbedingt auf StrictDelimiter=True achten, denn Leerzeichen, Tabs und so werden sonst ebnfalls als Delimiter angesehn. (war wieder mal 'ne saublöde Idee das so zu "reparieren", anstatt es richtig zu machen, bzw. dieses "kaputte" Verhalten standardmäßig abzuschalten)