MyCity » Pascal -> Delphi » Ne mogu da nadjem gresku

Ne mogu da nadjem gresku

Napisano na dan: 22.2.2014

Ne mogu da nadjem gresku
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Feb 2014 19:02
Idi na vrh
offline
  • Pridružio: 24 Dec 2011
  • Poruke: 1642
  • Gde živiš: Novi Banovci

Citat:unit Unit1;

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
s,s1:string;
k,p:integer;
begin
s:=memo1.Text;
k:=0;
while pos(' ',s)<>0 do
begin
p:=pos(' ',s);
s1:=copy(s,1,p);
if (s1[1]='A') or (s1[1]='a') then k:=k+1;
Delete(s,1,p);
end;
edit1.Text:=inttostr(k);

end;

end.

Ne mogu nigde da nadjem gresku. Rezultat treba da bude npr. da kad upise tri imena sa pocetnim slovom a da rezultat bude tri. Npr upisao sam dva imena sa pocetnim slovom a i rezultat je 1. Hvala unapred na pomoci.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 22 Feb 2014 19:41
Idi na vrh
offline
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14828
  • Gde živiš: Niš

Kako unosiš imena? Nakon svakog pritiskaš button ili? Koliko se sećam, u memo polju je moguć unos više redova. Siguran si da ti string s ne uzima vrednost celog memo polja već samo jednog reda?



Poslao: 22 Feb 2014 19:45
Idi na vrh
offline
  • Pridružio: 24 Dec 2011
  • Poruke: 1642
  • Gde živiš: Novi Banovci

Ne znam stvarno, ovo mojoj sestri nesto treba. Profesorka im je ovako napisala, ali nesto ocigledno ne valja.

Poslao: 22 Feb 2014 22:37
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Trebalo bi da radi ako su sva imena upisana u isti red i odvojena razmakom. Iza zadnjeg imena isto mora stajati razmak (space).
Jako lose odradjeno, jer zahteva striktnu formu unetih podataka, tj. nije tolerantno uopste na greske u unosu.

MyCity » Pascal -> Delphi » Ne mogu da nadjem gresku

Ko je trenutno na forumu
 

Ukupno su 1145 korisnika na forumu :: 192 registrovanih, 9 sakrivenih i 944 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 4thFlavian, Adaminho1985, aleksandarbl, ALEKSICMILE, amonsrb, amstel, Barista, BB, berste23, Bickoooo, Bobrock1, Bokiboks, Boris BM, Boris.A, Boroš, Borski1977, Boskovic, Bosnjo, BOXRR, BradaRS, Brzi voz, burevesnik, bvuletic7, BWG, ceman, Cirkon, Citalac, CLIPPER, Crazzer, cuvarkuca, cvrle312, DaliborVukadinovic, darionis, desmeki, Desmond, Dimitrije Paunovic, djukapfc, DJUNTA, doloress, DonRumataEstorski, Dovla 1980, Dragacevac, draganca, dragoljub11987, Dragon Order, Dukelander, dulleo, Duschi, Dusko Nikolin, DuškoMraz, Egzekutor13, ekozelj, Enigma Nobody, EVIDENTICAR, gaga23, gasazem, gmlale, Grochow, gv1958, Hemi, HrcAk47, Ice, Inner-Cell, istina, istokzapad, IvanMiletic, Još malo pa deda, kaput21, kljajajunior, Komanca, Konda, KonstantinR, Koridor, KORISt, kunktator, kybonacci, lafa008, lakson001, Lazur_01, lcc, Leonov, leptirleptir, LjubisaR, LjutaGuja, Lobo, LostInSpaceandTime, luja, m0nstrum_, Magistar78, Makarid, Malahit, Marko Marković, Markobreee, marsi, mat, max power, mercedesamg, MIKI63, milenko crazy north, Miler88, milikonst, MiljanXD, Milovan Dinic, Mitch22, Mitraljeta, Miškić, moldway, MunzeKonze, mushroom, narandzasti, neko_drugi, Nepopravljivi, Neutral-M, neutrino, nikonema, nuke92, obsidian, paja69, Paklenica, Pekman, Perudin_92, Phaeton, Piani Jazzer, Piklik, Podljub, Posmatrac77OKB, Prečanin30, Pururin, PuškeiPlavuše, raf87, RajkoB, rebro1974, rednap, Remarqe, Robin, Rok A Bit, rovac, royst33, sajorg, saputnik plavetnila, Savantije, savuni, sekretar, Semberija, Sharpshooter, Shilok, sickmouse, Skakac7, skroba84, Smiljkovich, Srna, StalniPromatrač, stankolich, Stefanzi, Stevan Visoki, stevo svinja, strawman, T55, tanakadzo, Tas011, TheDictator, tmanda323, trpche, TRZH92, Tvrtko I, ulogovan, Username1000, vaso1, Vatreni Zmaj, vazduh, veljko82, vidra boy, VJ, vlada035, Vlada76, VladimirV, VojaeZ, Vrač, vrlenija, Vujkeu, vukan0799, WELJKO, wexy, yrraf, Zadonbas, Zastava, zil10, zivojin32, Zjmc, zzeljko, ZZZ, šumar bk2