Text-Dateien in Delphi7

[Klaus01]

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