arkadaşlar bir table da isimleri AdıSoyadı gibi bir alanda tutuyorum. SoyadıAdı lazım, onun için Data Modül üzerinde CalculatedField olarak SoyadıAdı gibi bir alan tanımladım. Normalde form üzerinde listbox koyarak aşağıdaki kodla yapmıştım ama Data Modül üzerine listbox koyulmuyor. TStringlist olarak değişken tanımladım onunda item gibi bir properties i yok. sizce nasıl çözülür?
Kod: Tümünü seç
function Segment(var S:string; Sp:Char):string;
var
Ix:Integer;
begin
S:=TrimLeft(S);
Ix:=Pos(Sp,S);
if IX<>0 then
begin
Segment:=Copy(S,1,Ix-1); Delete(S,1,Ix);
end
else begin
Segment := S; S:=''
end;
end;
Kod: Tümünü seç
S := qrKimlikADSOYAD.Value;
while S <> '' do
begin
Seg := Segment(S,' ');
if Seg <> ''
then ListBox1.Items.Add(Seg);
end;