Char(32) ile String arasına boşluk koyma da sorun.

[neu84]

Selamlar arkadaşlar,
programda bazı yerlerde veritabanına atmam gereken verilerde aralarına bi kaç boşluk koymam gerekebiliyor. Yani "sev-2855 E 34 " gibi bir görüntü elde etmem gerekiyor, bunun için bir fonksiyon yazdım ancak geriye string olarak aldıgı için göstermiyor sanırım, anlayamadım..

Kod: Tümünü seç

Edit1.Text:='tansel'+CHAR(32)+CHAR(32)+'fatih';

bu şekilde yapınca 2 tane boşluk koyuyo ancak benim yapmam gereken istedigim adete göre boşluk koyması..
Yazdığım fonksiyon budur;

Kod: Tümünü seç

function TForm1.func_BoslukOlustur(kacbosluk: integer): string;
var
  I: Integer;
  boslukstring:string;
begin
  for I := 1 to kacbosluk do
    begin
    if(I=kacbosluk)then
    begin
    boslukstring:=boslukstring+'char(32)';
    end
    else
    boslukstring:=boslukstring+'char(32)+';
    end;
end;

ve şu şekilde çagırıyorum;

Kod: Tümünü seç

var
deger:string;
begin
deger:= 'tansel'+(func_BoslukOlustur(4))+'fatih';
Edit1.Text:=deger;
end;

ancak fatih tansel yerine fatihtansel getiriyo.. Sizce nesi eksik bunun, yada yanlış? yani string olark aldıgım için görünmüyorda, bunu nasıl o formata çevircem bilmiyorum.. yani 'fatih'+ +'tansel' arasındaki + lar içine yazıyoruz ya char(32) diye ve görüyor, bu benim yarattıgım stringi ben nasıl görebilirim ki anlasın???

Yardımlarınız için şimdiden tşkler..

[SimaWB]

StringOfChar 'ı kullanın.

Kod: Tümünü seç

deger:= 'burak' + StringOfChar(' ', 4) + 'hayırlı';

[orhancc]

Kod: Tümünü seç

ShowMessage(Format('%s%s%s',['Burak',StringOfChar(' ',5),'Naber']));

[neu84]

StringOfChar 'ı kullanın.

Kod: Tümünü seç

deger:= 'fatih' + StringOfChar(' ', 4) + 'tansel';

Çok tşk ederimm..

[neu84]

Kod: Tümünü seç

ShowMessage(Format('%s%s%s',['tansel',StringOfChar(' ',5),'Naber']));

Çok tşk ederim. ancak Format('%s%s%s' bu kısmıda kodun ne demek istedigini anlamadım.. kısaca anlatırmısınız.

[orhancc]

%s%s%s kısmı 3 tane string değer atılacağını belirtiyor ve [] içindeki kısımda bunların içine değerleri atıyor.

d = Decimal (integer)
e = Scientific
f = Fixed
g = General
m = Money
n = Number (floating)
p = Pointer
s = String
u = Unsigned decimal
x = Hexadecimal

[neu84]

%s%s%s kısmı 3 tane string değer atılacağını belirtiyor ve [] içindeki kısımda bunların içine değerleri atıyor.

d = Decimal (integer)
e = Scientific
f = Fixed
g = General
m = Money
n = Number (floating)
p = Pointer
s = String
u = Unsigned decimal
x = Hexadecimal

anladım kardeşim çok tşk ederim.. Bu şekilde bi kullanım bilmiyordum