delphi - Checke for antal bogstaver - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #3807 @ 13.05.04 20:14

hvordan kan jeg checke efter hvor mange af en slags bogstaver der i to editboxe

hvis nu der står Jacob i den ene edit box i Jensen i den anden og jeg vil checke efter bogstaverne i ordene fisk , hund og så skrive det i en talrække hvor mange der er af hver her ville svarer jo så være

00000010

da der kun er 1 af bogstaverne nemlig n som ligger anden sidst

hvordan kan jeg gøre det?

4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #1474 @ 13.05.04 20:21

470

For at gaa alle bogstav igennem i en string kan det goeres saaledes:

Kode

var
  I : Integer;
begin

  for I := 1 to Length(Edit1.Text) do
  if Edit1.Text[I] = 'n' then
  ShowMessage('Fandt bogstavet: n!');
end;

Eksemplet leder efter bogstavet n i komponenten Edit1!

Bruger #782 @ 13.05.04 21:44

291

for at gøre det helt klart

Kode

function antal(bogstav, streng: string): integer;
var i, res: integer;
begin
   res := 0;
   for i := 0 to length(streng) do
   begin
      if streng[I] = bogstav then
         inc(res);
   end;
   result := res;
end;

dette er blot en kommentar da ovenstående er korrekt ser jeg nu

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 13/05-04 21:45:29 af Jeppe]

[Redigeret d. 13/05-04 21:46:04 af Jeppe]

Bruger #3807 @ 13.05.04 22:05

det fik jeg til at virke men hvis nu jeg gerne vil søge i to editboxe på en gang hva så?

det var mest det som jeppe skrev jeg gik efter for der får jeg et tal ud af det...

Bruger #3807 @ 13.05.04 22:10

jeg ville også gerne have den til at checke efter flere bogstaver men det kan vel gøres ved at kalde functionen flere gange men hvordan kan jeg skrive alle de tal som den har fundet ind i en integer?

int[1] := ...
int[2] := ...

Checke for antal bogstaver

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler