پيرامون TStringList

[pad_kay]

با سلام خدمت دوستان
همانگونه كه مي دانيد در هنگام اضافه كردن به TStringList به انتهايي هر سطر Enter نيز اضافه مي شود به چه صورت مي توان آخيرين Enter رو از حذف كرد
با تشكر

[Hsimple11]

همانگونه كه مي دانيد در هنگام اضافه كردن به TStringList به انتهايي هر سطر Enter نيز اضافه مي شود به چه صورت مي توان آخيرين Enter رو از حذف كرد
با تشكر

با سلام. منظورتون رو واضح تر بیان کنید. به انتهای هر سطر enter اضافه نمیشود. در واقع این شمایید که String های مختلف را جداگانه وارد میکنید. اگر میخواهید رشته هایی که وارد میکنید در خطوط جداگانه ذخیره نشوند بایستی آنها را در یکبار add یا assign کردن به لیست رشته های خود وارد کنید. این مثال را ببینید :


var

StringList: TStrings;
begin

StringList := TStringList.Create;
try
with StringList do begin
Add('This example uses A string List.');
Add('It is the easiest way to add strings');
Add('to a list of strings.');
Add('Always remember TStrings.Create method');
Add('is abstract; So use TStringList.Create');
Add('method instead.');

end;

with listbox1 do begin

Width := 210;
Items.Assign(StringList);
ItemIndex := 0;
end;
finally
StringList.free;
end;
end;