Stringde boşluk karakterinden sonrasını atmak

[Berdem]

Merhaba,
AnsiDequotedStr fonksiyonun tam ters işlemini yapan fonksiyon arıyorum.
yani boşluktan sonrasını atmasını istiyorum..Saygılarımla

Kod: Tümünü seç

x:integer;
y:string
begin
x:=ansiPos(Edit1.text,' ');
y:=leftstr(edit1.text,x);
Showmessage(y);

Yanıt alamıyorum..

[ulu coder]

Kod: Tümünü seç

x:integer;
y:string;
begin
x:=ansiPos(Edit1.text,' ');
if x>0 then y:=Copy(edit1.text,1,x-1);
Showmessage(y);

Sizin hatanız y:string dedikten sonra ; koymamak olabilir.

[Berdem]

Teşekkürler malesef olmadı....'Boşluk Atılacak' diye bir string var.Yanıt olarak sadece 'Boşluk' gelmesini istiyorum...

[ulu coder]

AnsiPos'u yanlış kullanıyormuşuz

Kod: Tümünü seç

var
  no:integer;
  bosluksuz:string;
begin
  no:=ansiPos(' ',edit1.text);
  if no>0 then y:=Copy(edit1.text,1,no-1);
  Showmessage(bosluksuz);
end;

[Berdem]

Düzeldi çok teşekkürler...