Ne mogu da nadjem gresku

Ne mogu da nadjem gresku

offline
  • Pridružio: 24 Dec 2011
  • Poruke: 1585
  • Gde živiš: Bogatić

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.
offline
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14472
  • 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?



offline
  • Pridružio: 24 Dec 2011
  • Poruke: 1585
  • Gde živiš: Bogatić

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

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.

Ko je trenutno na forumu
 

Ukupno su 847 korisnika na forumu :: 51 registrovanih, 8 sakrivenih i 788 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., aleph_one, alkatraz080, amaterSRB, babaroga, banebeograd, Bobannn90, Boris902, Cvijo_ue, dehhhhi, Dežurni pod palubom, djonsule, djordjekec, doom83, draggan, dragoljub11987, Drug pukovnik, Faki-Valjevo, gile58, GrM, havoc995, Hektor, ikan, krunomiletic5, kuntalo, louderick, marsovac 2, mercedesamg, Mercury, Milan A. Nikolic, misaru, moldway, MORAVA1, pacika, raykan, repac, robertino2, S2M, sakota79, Sirius, snop, Sr.Stat., theNedjeljko, Toni, Trpe Grozni, VJ, vlvl, VP3987, W123, zljubomir, Zori