Ne mogu da nadjem gresku

Ne mogu da nadjem gresku

offline
  • Pridružio: 24 Dec 2011
  • Poruke: 1626
  • 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.
online
  • Milan
  • Pridružio: 17 Dec 2007
  • Poruke: 14809
  • 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: 1626
  • Gde živiš: Novi Banovci

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 829 korisnika na forumu :: 31 registrovanih, 6 sakrivenih i 792 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: Alibaba1981, Bane san, bojcistv, cinoeye, dane007, Duh sa sekirom, FileFinder, FOX, hyla, JOntra, Kvazar, Leonov, madza, Mi lao shu, Miloskec, nemkea71, Panter, procesor, raketaš, raptorsi, RJ, sasa87, suton, TheBeastOfMG, Trpe Grozni, vandrej, Varagic, vasa.93, x9, ZetaMan, šumar bk2