Ne mogu da nadjem gresku

Ne mogu da nadjem gresku

offline
  • Pridružio: 24 Dec 2011
  • Poruke: 1582
  • 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: 14216
  • 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: 1582
  • 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: 24130
  • 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 583 korisnika na forumu :: 30 registrovanih, 5 sakrivenih i 548 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1567 - dana 15 Jul 2016 19:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., Apok, Atomski čoban, Bane san, Bloody, bojank, DeerHunter, Dicus, Dimitrise93, djboj, Djokislav, Filodendron, Georgius, HDMI, ILGromovnik, Kubovac, Manojlo, Mihajlo, Milan Karan, Miskohd, Pavlov A.A., radoznao2, Rakenica, teodoramilovanovic111, Toni, trutcina, yrraf, zljubomir, zoidbergs