[delphi] jak usunąć znak spacji?

[kenny_]

witam.
prosze pomóżcie.

pobieram z bazy danych jakiś tekst do edita.
problem w tym że przy pobieraniu pobiera tyleż znaków ile jest zadeklarowanych w bazie danych.
czyli jeśli pobieram z bazy np. imie karol a na to imie jest przeznaczone 10 znaków w bazie to pobierze mi
"karol " czyli teks i reszte pustych znaków do końca jak się pozbyć własnie tych pustych znaków w końca.

nie mam pojęcie jak to ugryść.

[Blind]

for + delete + F1

[Force]

Można użyć funkcji Trim, której podaje się stringa, a wypluwa stringa bez spacji na początku i na końcu, jest w module SysUtils. Można też użyć TrimRight, który usuwa z prawej strony białe znaki.

[ktoś]

najprościej jest w ten sposób:

[code=Delphi] for c := length(tekst) downto 1 do
begin
if tekst[c] = ' N[[]VWN[)k6zZaHH NNHH[
Z
HY[Y7Eś5fCfwCb33b33FVćwŁćwFV7Eś5ÓŚV [/code]

Ah... gdzie te czasy, żę się siedziało po 4-6h przy delphi...

// no..a, nie zapominaj o tagach do kolorowania kodu - Iskar

ups.. sorry, przydałby się button przy szybkiej odpowiedzi... Nie musisz dawać mi rózgi pod choinkę

[sazian]

mały błąd
nie
[code=Delphi]
delete[c,1];
[/code]
albo odwrotnie c i 1

[KKKas]

Force właściwie podał dobry sposób na to, po co jeszcze kombinować (bonusowo błędnie) ?

Chyba, że to temat, w którym każdy podaje swój pomysł na usunięcie spacji ze stringa?

Jak tak, to:
[delphi][/delphi]
;-p

[kompustelnik]

ja proponuje tak:

[delphi][/delphi]

TYLE

[Blind]

y? bez sensu przeciez KKKas podal chyba najlepszy sopob....

[kompustelnik]

HEH Wada polakow... Zeby byl off-topic musi byc z 20 postow i to calkiem nie na temat...

[KKKas]

[code=Delphi] tekst[i]:= ''; [/code] Próbowałeś to skompilować? ;-) Niezła propozycja ;-p

[quote] Zeby byl off-topic musi byc z 20 postow i to calkiem nie na temat... [/quote]Hm, no to chyba jasne. Wiesz co znaczy 'off-topic'? ;-D

[kompustelnik]

Off-topic - wiem

[code=Delphi]
tekst[i]:= '';
[/code]

Probowalem.. na tym opiera sie caly moj pascal jaki napisalem.
W ten sposob pobieram tylko slowa i moge je wklepywac na stos....

Jakies pytanie??

[KKKas]

[quote name='kompustelnik' post='6818' date='pią, 29 gru 2006 - 15:20']Off-topic - wiem

[code=Delphi]
tekst[i]:= '';
njŚ\"yĆĘj#jX)Ś+Ś(nę%Ł$ęr'jh)Ęę^ui'var
tekst: String;
Czar: Char;
begin
tekst := 'asd NZWHH NN
H NN [/code]Obie linijki z * wywołują błąd:
KOD[Error] Unit1.pas(32): Incompatible types: 'Char' and 'String'

'' (pusty łańcuch) nie jest znakiem (Char).

Nie wiem jakie masz Delphi, ja odkąd pamiętam, nie dało się do znaku przypisać pustego łańcucha.

[kompustelnik]

Sluchaj chodzi mi o cos takiego:

[code=Delphi]
var
Tekst: String;
begin
Tekst:= 'Ala ma kota';
NHH[
Z
HYZWHH N NFVFV7EśÓŁb33b33ł [/code]

Wynik powyzszego bedzie nastepujacy: "Alamakota".

Nie wiem co Ci sie w tym nie podoba... Tez nie wiem co ty za przyklad przytoczyles....(tzn nie wiem po co dales zmienna typu Char skoro ja mowilem o zmiennej String)

Z racji iz przestrzegam regulaminu nie zamierzam sie tu z nikim wyzywac klucic czy prowokowac jakies niekomfortowe sytuacje.
Jak cos Ci sie nie podoba w tym przykladzie ktory podalem wyzej(ten kod zrodlowy) to podaj adres e-mail ja Ci wysle moj kod zrodlowy i juz... Nie widze w tym zadnych problemow.
PS: Uzywam Delphi 7

Nie odbierz tego postu zle... Ja nie mam zamiaru prowokowac zadnego konfliktu. Poprostu tlumacze dokladniej o co mi chodzilo.

[oksal]

[quote] Nie wiem jakie masz Delphi, ja odkąd pamiętam, nie dało się do znaku przypisać pustego łańcucha. [/quote]

Da się przypisać
[code=Delphi]
var
znak:char;
....

znak:=#0;
[/code]

...bardzo długi wątek na temat spacji choć klawisz spacji też jest najdłuższy:)

[KKKas]

[quote name='oksal' post='6829' date='pią, 29 gru 2006 - 20:22']Da się przypisać
[code=Delphi]
var
znak:char;
....

znak:=#0;
św:'jŚj)ir$Ź\"ł;)iŹ/ę^>-.rł(shśĘ\"wĄł;lŚśuŚąŃĄMĄ5---ę') else ShowMessage('KKKas się myli') [/code]
;-)

A wątek już całkiem zszedł z tematu ;-) Mógłby to któryś moderator wydzielić.

[oksal]

[sazian]

KKKas ma rację !!

[Blind]

KKKas na prezydenta!!!

[Iskar]

I tam. Gadajcie jak macie potrzebe dopóki to jest w miare na temat.

[wojtek]

CYTAT(kenny_ @ pon, 11 gru 2006 - 01:27) <{POST_SNAPBACK}>witam.
prosze pomóżcie.

pobieram z bazy danych jakiś tekst do edita.
problem w tym że przy pobieraniu pobiera tyleż znaków ile jest zadeklarowanych w bazie danych.
czyli jeśli pobieram z bazy np. imie karol a na to imie jest przeznaczone 10 znaków w bazie to pobierze mi
"karol " czyli teks i reszte pustych znaków do końca jak się pozbyć własnie tych pustych znaków w końca.

nie mam pojęcie jak to ugryść.

Pierwsze słyszę, żeby w bazach danych coś takiego się działo, ale może powinienes posłużyć się:

Edit1.Text:=Trim(i tutaj pole z bazy danych)

[quote] Pierwsze słyszę, żeby w bazach danych coś takiego się działo, ale może powinienes posłużyć się:

Edit1.Text:=Trim(i tutaj pole z bazy danych) [/quote]