Striplist ...
Sorry und THX für den Code
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
//Show Path in Edit 1
form1.ListBox4.Items.LoadFromFile(OpenDialog1.FileName);
edit1.text:=':intra_matrix=' + (StringReplace(form1.Listbox4.Items.Text, #13#10, '', [rfReplaceAll]))
end;
So gehts ... aber wie lösch ich das leerzeichen vor der Acht...
Code:
:intra_matrix= 8,16,19,...62
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
//Show Path in Edit 1
form1.ListBox4.Items.LoadFromFile(OpenDialog1.FileName);
edit1.text:=':intra_matrix=' + (Trim(StringReplace(form1.Listbox4.Items.Text, #13#10, '', [rfReplaceAll])))
end;
Nun hab ichs!!! Endlich
THX nochmal lucki