vielen dank,funzt..
Delphi-Quellcode:
for j := 0 to 4 do begin
for i := 1 to length(namen[j]) do begin
name:=namen[j];
if name[i]=' ' then begin
vn:=copy(name,1,i-1);
nn:=copy(name,i+1,length(name));
//nn:=delete(name,1,length(vn)+2);
end;
end;
stringgrid1.Cells[2,j+1]:=vn;
stringgrid1.Cells[3,j+1]:=nn;
end;
ich werd wohl nächstes Mal nicht mehr so spät programmieren..
