Hiiiilfe bitte bin am verzweifeln bei der Zeichenkette

[Popov]

In der Schule lernt man verschiedenes Zeug. Viele glauben, dass man in der Schule nur Zeugs lernt wie rechnen, Geschichte, Rechtschreibung, usw. Das stimmt auch, aber in der Schule lernt man auch fürs Leben (oder sollte man), wie z. B: wenn ich für eine Aufgabe eine Woche Zeit bekomme und bis zum letzten Tag damit warte, hab eich am letzten Tag kaum noch Zeit es zu lösen.

Ich denke, wenn du morgen zum Lehrer gehst und ihm sagst: ich habe die Aufgabe nicht gelöst, aber etwas anderes gelernt, wird er dir wegen der fehlenden Aufgabe zwar eine 6 geben, sich aber dennoch freuen dir etwas beigebracht zu haben. Vielleicht gibt er dir deswegen auch nur eine 5

Mit der Funktion Length() kann man die Länge eines Strings ermitteln
Mit Copy(Str, x, 1) kann man ein Zeichen kopieren
Alternativ: Mit Str[x] kann man ein Zeichen erhalten

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sText, sListePositionen: String;
  cGesuchtesZeichen: Char;
  iPosition, iLeangeText, iAnzahlZeichen: Integer;
begin
  sText := 'Fachhochschule Stralsund';
  sListePositionen := '';
  iAnzahlZeichen := 0;
  cGesuchtesZeichen := 'h';
  iLeangeText := ?????;
  for iPosition := 1 to iLeangeText do
  begin
    if sText[iPosition] = cGesuchtesZeichen then
    //Alternativ:
    //if Copy(sText, iPosition, 1) = cGesuchtesZeichen then
    begin
      Inc(iAnzahlZeichen);
      //Alternativ:
      //iAnzahlZeichen := iAnzahlZeichen + 1;
      if sListePositionen <> ????? then
      //Alternativ
      //if ????? = 0 then
        sListePositionen := sListePositionen + ', ';

      sListePositionen := sListePositionen + IntToStr(iPosition);
    end;
  end;

  ShowMessage('Text: ' + sText);
  ShowMessage('Gesuchtes Zeichen: ' + cGesuchtesZeichen);
  ShowMessage('Anzahl Textzeichen: ' + IntToStr(iLeangeText));
  ShowMessage('Anzahl gesuchte Zeichen: ' + IntToStr(iAnzahlZeichen));
  ShowMessage('Positionen der Zeichen: ' + sListePositionen);
end;

Hier eine mögliche Lösung. Es fehlen aber noch drei Angaben, schließlich ist es eine Hausaufgabe.

[hoika]

Hallo,

ich glaube, nach den letzten Aussagen ist leider alle Hilfe umsonst.
So was "brauch ich nie wieder" sagt ja schon alles aus.

Das muss man dann auch akzeptieren.


Heiko

[TBx]

Zitat von hoika:

Hallo,

ich glaube, nach den letzten Aussagen ist leider alle Hilfe umsonst.
So was "brauch ich nie wieder" sagt ja schon alles aus.

Das muss man dann auch akzeptieren.


Heiko

eben, und deshalb mach ich hier mal zu

*** CLOSED ***