Tadaaa, ich bin wieder da
<---passt eigentlich nicht zu meiner Situation^^
Ich versuch wie ein Wilder was vernünftiges über pos und copy rauszufinden, aber überall nicht Halbes und nichts Ganzes.
Ich möchte mich jetzt langsam an folgendes herantasten:
Nachdem ich es mit eurer Hilfe geschafft habe, einen Wert aus ComboBox.Text in der Textdatei zu suchen und in ein Memo-Feld zu schreiben, möchte ich nun, dass diesem Wert weitere Folgen(Wert1,Wert2,Wertn).
Als erstes möchte ich den ersten Wert, der mit ComboBox.Text übereinstimmt, abspalten, damit überhaupt etwas im Memo-Feld erscheint. Nur leider haperts an inkompatiblem Typen.
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
var strings,p:TStrings;
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); //Fehlermeldung 'inkompatible Typen'
If ComboBox1.text=copy(strings,1,p-1) then //die kommt dann hier sicher auch
Memo1.Lines.add(strings[i]);
end;
end;
finally
strings.Free;
end;
end;
Das heisst also wiedermal: HÜÜÜÜÜÜLFE!
P.s.
Mein Kopf dröhnt