Folgendes Problem:
Delphi-Quellcode:
procedure Tfrm_main.ListBox1Click(Sender: TObject);
var
i: Integer;
sl:TStringList;
begin
//Ich klicke einen Eintrag in der ListBox an und übergebe diesen als Delimitertext zb. "a=Heute ist ein heißer Sommertag"
sl := TStringList.Create;
for i := 0 to sl.Count - 1 do
begin
if sl.Selected[i] = true then
begin
sl.DelimitedText := ListBox1.Items.Strings[i];
end;
end;
//jetzt übergebe ich das Delimiter-Zeichen
sl.CommaText := 'a='; // sl.Delimiter := 'a=' funktioniert leider nicht es kommt die Fehlermeldung "incompatible char string"
//und jetzt soll alles was nach dem Delimiterzeichen 'a=' steht an Edit1.Text übergeben werden
for i := 0 to sl.Count - 1 do
begin
Edit1.Text := sl[i];
end;
end;
//in Edit1 müsste also stehen "Heute ist ein heißer Sommertag"
Das ganze funktioniert natürlich nicht
aber vielleicht könnt ihr ja weiterhelfen
