Ok, das scheinz jetzt zu klappen. Danke dir. Aber die Probleme wollen irgendwie nicht enden.
Ich habe jetzt ein bissel umgeschrieben:
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if strings.Count > 0 then
begin
for i := 0 to strings.Count - 1 do
begin
s := strings;
If ComboBox1.items=strings then
Memo1.Lines:=s;
end;
end;
strings.Free;
end;
begin
strings := TStringList.Create;
try
path := ExtractFilePath(ParamStr(0));
path := path + 'Testdatei.txt';
strings.LoadFromFile(path);
finally
end;
1. Die Variable strings scheint die Strings aus der Textdatei nicht einzulesen. Ich habe den inhalt von strings verfolgt und es erscheint nur ().
Woran kann das nun wieder liegen? Ist sicher nur ein kleiner Fehler.
2. Der Text aus der ComboBox1 soll in der Datei gesucht werden. Da bekomme ich wieder den TString/String-Fehler. Also habe ich nicht ComboBox1.Text, sondern ComboBox1.Items verwendet. So wie ich das verstehe, wird mir das aber keine genauen Ergebnisse liefern, da alle Item-Werte durchsucht werden und nicht, wie geplant, das ausgewählte.
Wie kann ich also ComboBox.Text "TString-kompatibel" machen?
EDIT:
Das ist nur der veränderte Code. Der Rest ist so wie im letzten Post.