[Delphi] De source om....

[Michael Knight]

Ik zie net dat er een slotje op dit topic is gezet....
Ik had net mijn source neergezet en dan werkt het niet....

Huntor was zo vriendelijk om een progje voor mij te brouwen,
maar doordat er bij mij INCOMPATIBALTEITSPROBLEMEN zijn i.c.m.
Delphi 5 kon hij niet alles openen

Hieronder ALSNOG mijn source:

oke......tot zover ben ik gekomen:
__________________________________________________________________
unit Zinsanalyse2;

interface

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

type
TForm1 = class(TForm)
btnAnakyserenVanDeZin: TButton;
edtInvoer: TEdit;
edtUitvoer: TEdit;
lblSpaties: TLabel;
edtUitvoer2: TEdit;
procedure btnAnakyserenVanDeZinClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
function AantalSpaties (sZin: String) : Integer;
{
Retourneert het aantal spaties in sZin.
pre: sZin <0
}

begin
end;
function IsZuiverWoord (sZin: String; iPos: Integer) : Boolean;
{
Deze functie retourneert TRUE dan en slechts dan als op positie ipos in de zin
sZin een zuiver woord begint. Een zuiver woord is gedefinieerd als een
aaneengesloten reeks letters ('a' t/m 'z' en JA' t/m 'Z') omgeven door
spaties en/of het begin en/of einde van de zin.
pre: ...< vul zelf in > ...
}
var
cTeken : Char;

begin
sZin := edtInvoer.Text;
for iPos := 1 to Length (sZin)
do begin
if sZin [iPos] in ['a'..'z', 'A'..'Z']
then result := TRUE
else result := FALSE
edtUitvoer2.Text := IntToStr (Result)
end;

end;
procedure TForm1.btnAnakyserenVanDeZinClick(Sender: TObject);

var
iResult,
iPos,
iAantalSpat : Integer;
sZin: String;
begin
sZin := edtInvoer.Text;
iAantalSpat :=0;
for iPos := 1 to length(sZin)
do begin
if sZin[iPos] = ' '
then
inc(iAantalSpat);
iResult := iAantalSpat;
edtUitvoer.Text := IntToStr (iResult)
end;


end.
__________________________________________________________________

Dit is de code die ik heb.....

Gelieve hier geen slot op te zetten.....tis serieus delphi werk...

[whoami]

Tja, zomaar een nieuw topic openen omdat het vorige gesloten werd is not done, en je kan er dan ook zeker van zijn dat er hier ook wel een slotje op komt (bij deze dus).
Verder post je hier zomaar wat source met een hele uitleg over uw vorige topic, maar de mensen die uw vorige topic niet kennen zijn daar dus niets mee. Verder geef je ook geen uitleg over uw probleem, dus is dat ook al een reden voor een slotje.

Lees misschien even de P&W FAQ en Quickstart
Welkom in P&W (FAQ-15/10/2002)
Welkom in P&W -> Quickstart (update 2/10/2002)

En misschien vind je dit ook wel interessant:
>>>**Je topic is dicht en het is onterecht? Lees hier!**<<<

(Welkom op GoT trouwens...)