Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
var strings:TStringList;
p:Byte;
path:String;
i:Integer;
begin
strings := TStringList.Create;
try
path := ExtractFilePath(ParamStr(0));
path := path + 'Testdatei.txt';
strings.LoadFromFile(path);
if strings.Count > 0 then
begin
Memo1.Clear;
for i := 0 to strings.Count - 1 do
begin
p:=pos(',',strings[i]); //Fehlermeldung 'inkompatible Typen'
If ComboBox1.text=copy(strings[i],1,p-1) then //die kommt dann hier sicher auch
Memo1.Lines.add(strings[i]);
end;
end;
finally
strings.Free;
end;
end;
Also, eigentlich heißt es hier pro Problem einen Thread aufzuachen, daß solltest auch Du machen.
pos liefert keinen String zurück sonder eine ganzzahlige Zahl.
Dann sollte Dir mittlerweile klar sein, daß eine StringList eine Liste mit Strings ist.
Also bei Dir ist strings eine StringListe wenn Du strings einfach so übergibst, übergibst Du die komplette StringList. Ein Element der StringList sprichst Du mit strings[index] an.
Habe oben mal etwas korrigiert.
Grüße
Klaus