Hallo,
wenn ich dein Vorhaben richtig verstanden habe, ist der Ansatz von
leddl schon mal gut.
Es sind aber noch ein paar Fehler drin
Delphi-Quellcode:
for i := 0 To ListBox1.Items.Count - 1 Do
for x := 0 To StringGrid1.ColCount - 1 Do
//[Col,Row] hier wird nur auf die Col 0 zugegriffen
If ListBox1.Items[i] = StringGrid1.Cells[0,x] Then //-->[x,0]
begin
vZeile := '';
for y := 0 To StringGrid1.RowCount - 1 Do
begin
//***************************************************
if Edit2.Text = 'TAB' then //wird bei jeder Leseschleife aufgerufen
vTrennzAus := chr(vk_tab) //Edit2 ändert sich doch nicht
else //also vor die Schleifen setzen
vTrennzAus := Edit2.Text;
//**************************************************
//hier wird auf i=ListBox.Items und x= StringGrid.Cols zugegriffen
vZeile := vZeile + StringGrid1.Cells[i,x] + vTrennzAus;//-->[x,y]
end;
memo1.Lines.Add(vZeile);
end;
änder das mal entsprechend der Kommentare ab, dann funktioniert es.