string konvertor

[ stefki @ 24.06.2011. 20:02 ] @

Pozdrav svima

ako moze neko da mi slozi delphi kod za sledece

imam ovaj text

B: QLG74M YBQYGD

kad kliknem na button da mi ga konvertira u sledece

korisnik = QLG74M
sifra = YBQYGD

_{[Ovu poruku je menjao stefki dana 26.06.2011. u 12:00 GMT+1]}

[ savkic @ 25.06.2011. 10:51 ] @

> imam ovaj text
> B: QLG74M YBQYGD 1 0 0 { 0:0:1 }
> kad kliknem na button da mi ga konvertira u sledece
> user = QLG74M
> password = YBQYGD
> reshare = 1
> hop = 1

Koliko vidim treba da razdvoji stringove prema spejsu ili dvotački. Skini sa neta JCL (Jedi code library) u unitu JclStrings ćeš naći StrToken i StrTokens pa iskoristi koja ti više odgovara.

[ Aleksandar Đokić @ 25.06.2011. 22:05 ] @

he B linija za CS :)

po razmacima uzmi posto user i pass ne mogu imati razmake

[ stefki @ 26.06.2011. 11:02 ] @

Evo da uprostimo malo

B: QLG74M YBQYGD

kad kliknem na button da mi ga konvertira u sledece

korisnik = QLG74M
sifra = YBQYGD

[ savkic @ 26.06.2011. 12:07 ] @

> Evo da uprostimo malo
> B: QLG74M YBQYGD
> korisnik = QLG74M
> sifra = YBQYGD

I dalje važi, koristi StrToken ili StrTokens za razdvajanje stringa na pojedine reči. Bilo je ovde ranije i primera za njihovu upotrebu.

[ tkaranovic @ 27.06.2011. 03:58 ] @

Evo i jedan primer koji radi sa AnsiReplaceStr:

Code:

procedure TForm1.Button1Click(Sender: TObject);

  function StrToStrings(const S: string; const Separator: char): TStrings;
  begin
    Result := TStringList.Create;
    Result.Text := AnsiReplaceStr(S, Separator, #13#10);
  end;
begin
  with StrToStrings('B: QLG74M YBQYGD 1 0 0 { 0:0:1 }', ' ') do
    try
      ShowMessage( 'korisnik = ' + Strings[1] + #13+#10 +
                      'sifra = ' + Strings[2]);

      with StrToStrings(Strings[7], ':') do
        try
          ShowMessage( 'dvotacka1 = ' + Strings[0] + #13+#10 +
                       'dvotacka2 = ' + Strings[1] + #13+#10 +
                       'dvotacka3 = ' + Strings[2]);
        finally
          Free;
        end;

    finally
      Free;
    end;
end;

U ovom primeru je jedino bitno šta radi StrToStrings a ovo ostalo nije bitno šta i kako radi, ostalo je (skraćeno) samo tu da prikaže rezultat "konvertovanja". Inače JCL ima isto(imenu) StrToStrings koja radi slično kao ova.

[ stefki @ 27.06.2011. 16:41 ] @

Hvalati to je to

_{[Ovu poruku je menjao stefki dana 27.06.2011. u 18:00 GMT+1]}