Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

odsecanje stringa sleva do prvog blanko razmaka

[es] :: Pascal / Delphi / Kylix :: odsecanje stringa sleva do prvog blanko razmaka

[ Pregleda: 3350 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mehanizamm
Vranje

Član broj: 82537
Poruke: 88
*.adsl-a-1.sezampro.yu.



Profil

icon odsecanje stringa sleva do prvog blanko razmaka28.12.2008. u 19:10 - pre 185 meseci
Jel postoji funkcija koja bi odsekla string do prvog blanko raznaka??

string:='odsecanje stringa sleva do prvog blanko razmaka';

a da dobijem

string:='odsecanje';
 
Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4901
*.dynamic.sbb.rs.

Jabber: xfiles@elitesecurity.org


+638 Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka28.12.2008. u 19:31 - pre 185 meseci
Pogledaj funkcije: LeftStr() i AnsiPos().

// Borland C++ Builder kod, pod uslovom da 100% postoji blanko.
Code:

#include <StrUtils.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString Stari = "odsecanje stringa sleva do prvog blanko razmaka";
    AnsiString Novi = LeftStr( Stari, AnsiPos( " ", Stari ) );
    ShowMessage( Novi );
}

... ako ne znas da li postoji blanko, prvo to proveri (AnsiPos( " ", Stari )) pa tek onda idi u funkciju.

 
Odgovor na temu

mehanizamm
Vranje

Član broj: 82537
Poruke: 88
*.adsl-a-1.sezampro.yu.



Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka28.12.2008. u 19:40 - pre 185 meseci
Jel postoje takve funkcije za Lazarus??
 
Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4901
*.dynamic.sbb.rs.

Jabber: xfiles@elitesecurity.org


+638 Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka28.12.2008. u 19:41 - pre 185 meseci
^
Ili, Pascal kod (valjda):
Code:

procedure TForm1.Button1Click(Sender: TObject);
var Stari, Novi : string;
begin
    Stari := 'odsecanje stringa sleva do prvog blanko razmaka';
    Novi := LeftStr( Stari, AnsiPos( ' ', Stari ) - 1 );
    ShowMessage( '>' + Novi + '<');
end;

(dodao sam -1, da ne bi jedan suvisni blanko ostao na desnoj strani)
 
Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4901
*.dynamic.sbb.rs.

Jabber: xfiles@elitesecurity.org


+638 Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka28.12.2008. u 19:45 - pre 185 meseci
^
To su obicne VCL funkcije. Ima ih u Help-u. Jedino ne znam da li je potrebno dadati u uses i StrUtils.
 
Odgovor na temu

mehanizamm
Vranje

Član broj: 82537
Poruke: 88
*.adsl-a-1.sezampro.yu.



Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka28.12.2008. u 19:50 - pre 185 meseci
Hvala to mi je trebalo..
 
Odgovor na temu

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 4901
*.dynamic.sbb.rs.

Jabber: xfiles@elitesecurity.org


+638 Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka28.12.2008. u 19:55 - pre 185 meseci
Ipak, ne zaboravi da proveris sta vraca AnsiPos()...
Code:

    pozicija := AnsiPos( ' ', Stari );
    if pozicija > 0 then
      begin
          Novi := LeftStr( Stari, pozicija-1 );
          ShowMessage( '>' + Novi + '<');
      end;

 
Odgovor na temu

Nikolavlasotince
Nikola Stojiljkovic
Vlasotince/Beograd

Član broj: 139391
Poruke: 109
*.ADSL.neobee.net.



+1 Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka01.01.2009. u 01:19 - pre 185 meseci
Code:

S := 'odsecanje strina';
S := Copy(S, 1, pos(' ', S) - 1);   //ovde S dobija vrednost 'odsecanje'


nadam se da si na to mislio
 
Odgovor na temu

mehanizamm
Vranje

Član broj: 82537
Poruke: 88
*.adsl-1.sezampro.yu.



Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka04.01.2009. u 09:45 - pre 185 meseci
Imam problem sa izmenom podataka u bazi..

Koristim Mysql bazu imam tabelu lica (id, ime, prezime).
E sad kako da formiram upit da mi izmeni podatke
ja sam ovako radio al uvek mi javlja grske!! gde gresim??

Code:

          upit := 'UPDATE lica SET ';
          upit := upit + 'ime=' + edt_ime.text + ',prezime=' + edt_prezime.text;
          upit := upit + ' WHERE id=' + QuotedStr(edt_id.text); 
          
          query.Close;
          query.SQL.Clear;
          query.sql.text:=upit;
          query.Open;


 
Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
93.86.30.*

ICQ: 346697685
Sajt: www.zeussoftware.rs


Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka04.01.2009. u 10:28 - pre 185 meseci
Koju gresku dobijas?

Verovatno umesto query.Open trebas da koristis query.ExecSQL, samo pretpostavljam posto nisi naveo gresku koju si dobio :).
 
Odgovor na temu

mehanizamm
Vranje

Član broj: 82537
Poruke: 88
*.adsl-1.sezampro.yu.



Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka04.01.2009. u 10:53 - pre 185 meseci
Greske

Kad koristim query.open

Citat:

Project izmena raised exception class 'EDatabaseError' with message:
:Cannot open a non-select statement


Kad koristim query.execSQL

Citat:

Project izmena raised exception class 'EDatabaseError' with message:
:Error executing query: Unknown column 'jugoslav' in 'field list'
 
Odgovor na temu

mr.zhile
Ivan ZHILE
C# developer

Član broj: 185721
Poruke: 249
93.86.201.*



+2 Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka04.01.2009. u 13:06 - pre 185 meseci
probaj umesto
upit := upit + 'ime=' + edt_ime.text + ',prezime=' + edt_prezime.text;
napisi
upit := upit + 'ime=' + QuotedStr(edt_ime.text) + ',prezime=' +QuotedStr(edt_prezime.text);

Prati debagovanje i vidi kakva je vrednost stringa upit...
Probaj da izvrsis takav upit u nekom od programa gde si kreirao bazu
Don't worry be happy
 
Odgovor na temu

mehanizamm
Vranje

Član broj: 82537
Poruke: 88
*.adsl-1.sezampro.yu.



Profil

icon Re: odsecanje stringa sleva do prvog blanko razmaka04.01.2009. u 13:58 - pre 185 meseci
Hvala..
Dobitna kombinacija..

upit := upit + 'ime=' + QuotedStr(edt_ime.text) + ',prezime=' +QuotedStr(edt_prezime.text);

query.ExecSQL
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: odsecanje stringa sleva do prvog blanko razmaka

[ Pregleda: 3350 | Odgovora: 12 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.