Vsaka crka svoj glas

Vse o večpredstavnosti (zvok, video, DirectShow in podobno).
Uporabniški avatar
Lee_Nover
Prispevkov: 3653
Pridružen: 20.05.2001 14:31:55

Vsaka crka svoj glas

Odgovor Napisal/-a Lee_Nover » 25.06.2005 16:18:13

Namreč string je v resnici array of char, oz. skupek znakov
joj ne pisat takih stvari ...
na lokaciji s[1] se zacnejo znaki stringa, s[0] je pri ansistringih neuporabljen, s[Length(s)+1] je tudi rezerviran za #0 znak
lokacija -4 predstavlja dolzino stringa kot cardinal vrednost, -8 pa stevilo referenc
tko je dolzina stringa ubistvu 10 bytov + KolikoZnakov ima
tuki pa se en clank o stringih
trenutno pa ne najdm enga clanka k mi je bil bolj vsec
.. my 2 c ..
- I hate noobs -

smaz
Prispevkov: 21
Pridružen: 25.06.2005 11:56:59

Vsaka crka svoj glas

Odgovor Napisal/-a smaz » 25.06.2005 16:31:14

Ojej zdaj ste pa me zmedli!!Sedaj pa res ne vem kaj je prav in kaj ne!Zato te prosim Lee_Nover da mi ti podas svoj predlog-parv tako pa bom vesel predogov vsah ostalih!!

A ja:J matej in silver war ne biti uzaljena!!Pisita se naprej!:D

Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Vsaka crka svoj glas

Odgovor Napisal/-a Fortuna » 25.06.2005 18:51:03

Primer od [J] Mateja je za tvoje potrebe čisto vredu.
Lp

aky
Prispevkov: 368
Pridružen: 27.12.2001 22:08:32

Vsaka crka svoj glas

Odgovor Napisal/-a aky » 25.06.2005 20:29:27

Ojej zdaj ste pa me zmedli!!Sedaj pa res ne vem kaj je prav in kaj ne!Zato te prosim Lee_Nover da mi ti podas svoj predlog-parv tako pa bom vesel predogov vsah ostalih!!

A ja:J matej in silver war ne biti uzaljena!!Pisita se naprej!:D
Ja za božjo voljo ne Elize programirat, če niti Hello World ne gre.

Silver_War
Prispevkov: 664
Pridružen: 01.06.2004 14:50:41

Vsaka crka svoj glas

Odgovor Napisal/-a Silver_War » 26.06.2005 06:47:56

Se opravičujem za mojo napako. Ker je uporaba stringa v določenih pogledih zelo podobna uporabi array-ov, sem predvideval, da je string res array. Vendar kot vidim, sem se zelo motil.

G16
Prispevkov: 462
Pridružen: 11.02.2005 21:54:48

Vsaka crka svoj glas

Odgovor Napisal/-a G16 » 16.09.2006 13:02:56

Jest sem naredil program za govorenje slovenskih številk takole:

Koda: Izberi vse

uses
MMSystem,...

 private
  m:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 M:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
play:string;

begin
if m>Length(Edit1.Text) then begin
play:='-';
M:=1;
end else
m:=m+1;
play:=Copy(Edit1.Text, m,1) ;
if play='1'then
PlaySound('C:\1.wav', 0, SND_ASYNC);
if play='0'then
PlaySound('C:\0.wav', 0, SND_ASYNC);
if play='2'then
PlaySound('C:\2.wav', 0, SND_ASYNC);
if play='3'then
PlaySound('C:\3.wav', 0, SND_ASYNC);
if play='4'then
PlaySound('C:\4.wav', 0, SND_ASYNC);
if play='5'then
PlaySound('C:\5.wav', 0, SND_ASYNC);
if play='6'then
PlaySound('C:\6.wav', 0, SND_ASYNC);
if play='7'then
PlaySound('C:\7.wav', 0, SND_ASYNC);
if play='8'then
PlaySound('C:\8.wav', 0, SND_ASYNC);
if play='9'then
PlaySound('C:\9.wav', 0, SND_ASYNC);
...//črke
//if play=AnsiUpperCase('A') then
//PlaySound('C:\A.wav', 0, SND_ASYNC);
end;  
Tako lahko nadaljuješ s črkami.;)
Timer nastaviš tako, da je interval dolg kot najdaljši (po času) zvok.
:D
Zadnjič spremenil G16, dne 16.09.2006 13:06:06, skupaj popravljeno 1 krat.
Napisal G16 (nekdanji G11,G14,G15°) Uporabljam: Delphi7 Ent.
http://delphi4u.awardspace.com/
Čas teče naprej...

aoven
Prispevkov: 2338
Pridružen: 27.06.2001 23:56:07

Vsaka crka svoj glas

Odgovor Napisal/-a aoven » 16.09.2006 13:16:58

play:=Copy(Edit1.Text, m,1) ;
if play='1'then
PlaySound('C:\1.wav', 0, SND_ASYNC);
if play='0'then
PlaySound('C:\0.wav', 0, SND_ASYNC);
...
Khm... Kaj pa če bi vso tole solato nadomestil s tem?

Koda: Izberi vse

play:=Copy(Edit1.Text, m,1) ;
PlaySound(PChar('C:\' + play + '.wav'), 0, SND_ASYNC);
Aleksander

G16
Prispevkov: 462
Pridružen: 11.02.2005 21:54:48

Vsaka crka svoj glas

Odgovor Napisal/-a G16 » 16.09.2006 16:00:46

Dobra ideja. :D
Napisal G16 (nekdanji G11,G14,G15°) Uporabljam: Delphi7 Ent.
http://delphi4u.awardspace.com/
Čas teče naprej...

Odgovori