[S]Hilfe -> Funktionen -> z.B. ä in ae & hilfe in hoiolofoeo

[Oli_G]

Schreibe am Do eine Informatik-Klausur und raff wenig von Delphi 7 (wie die meisten im Kurs) :(
Wir sollen dann ein bestimmtes Programm aufs Papierbringen... :|

Bisher hatten wir sowas wie zB nen Programm das ä in ae und ö in oe usw umwandelt gemacht, ein Programm das alle Vokale gegen einen anderen Buchstaben austauscht, ein Programm welches hinter jedem eingegebenen Buchstaben ein i setzt uswusw.... (das ganze immer mit 2 Editboxen und nem Button)

Kann mir jemand kurz nochmal solche Programme anhand von Quelltexten erklären?



Danke, euer Olli =)

[Nicodius]

HERLZLICH WILLKOMEN IN DER DP


es gibt eine praktische suchfnktion i nder Dp SUCHFUNKTION

[edit=Admin]Willkommens-Gruß etwas verkleinert. :roll: Mfg, Daniel[/edit]

[nailor]

... wenn du den titel gegessen hast ;)

dann eine ein wenig konkretere frage. natürlich könnten wir dir die o.g. funktionen hier nochmal hinschreiben, aber die hast du ja anscheinend schon. deshalb weiß ich jetzt nicht so recht, was ich dir sagen soll

[Nicodius]

schau was ich in der suche gefunden habe

ERGEBNIS

[MrSpock]

Hallo Oli_G,

zunächst einmal herzlich willkommen im Delphi-PRAXIS Forum.

Als erstes bitte ich dich, den Titel zu ändern. Die meisten benötigen Hilfe, wenn sie eine Frage stellen. Deshalb ist der Titel "Brauche Hilfe" nicht aussagekräftig.

Poste doch einmal ein Stück Code, dass du nicht verstehst, dann können wir dir gezielt helfen.

[flomei]

:hi: Herzlich Willkommen in der Delphi-PRAXIS, Olli! :dp:

Zunächst einmal möchte ich dich bitten den Titel deiner Frage zu ändern.
Hier in der DP "lieben" (;)) wir aussagekräftige Titel. Deiner ist nicht wirklich aussagekräftig... ;)

Und dann möchte ich noch sagen, dass wir nur schlecht deine Hausaufgaben machen können. Aber wir können dir alle helfen wenn du Probleme beim Programmieren hast.

Am Besten versuchst du mal ein Programm zu schreiben das eine Textdatei einliest und dann alle in ihr vorhandenen ä, ö und ü in ae, oe, ue umwandelt.
Dabei kann dir die Funktion StringReplace helfen.
Solltest du beim Programmieren Probleme haben, dann bist du herzlich dazu eingeladen, wieder zu kommen und deine Frage im Forum zu stellen (Achte auf die richtige Sparte! :))

So, das war meine Begrüßungszeremonie. :mrgreen:

MfG Florian :hi:

[edit] :cry: :shock: Ich tippe manchmal einfach zu langsam... [/edit]

[micsie]

Hallo,

Willkommen in der DP. Die Delphi-Praxis ist kein Forum, in dem man sich die Hausaufgaben lassen machen kann; dieses Thema hatten wir schon zu oft. Wenn du Lösungsansätze hast und dabei Probleme auftauchen, kannst du sicher mit Antworten rechnen, nicht aber bei einer so allgemeinen Frage.

mfg micsie

// grrr, schon wieder zu spät

[Nicodius]

schau trotzdem mal auf den link

DER LINK DER ENTSCHEIDET

:mrgreen: das ist doch das was du wolltest oder?

[flomei]

Hey Nicodius, kannste mir mal sagen was das jetzt soll?
Lass Olli doch erstmal lesen bevor du schon wieder deinen Link postest.
Beherrsch dich!

MfG Florian :hi:

[Nicodius]

aber da steht alles drinnen rügt ihn doch nicht bei ihm geht es ja um was wichtiges :mrgreen:

:dp: ..auch wenns net erlaubt ist :duck:

Ps.: ja sir florian

[Daniel]

:warn:
Nicodius, Du hast Post.

Was gesagt werden musste, haben die Anderen schon gesagt, so dass ich mich hier zum Thema "aussagekräftiger Titel" nicht weiter äußern muss.

[Nicodius]

das hatet ic hnicht gemeint und



:warn: er hat jetz twas er wollte nörgelt nicht imemr üebr mich

ich war jetzt laneg allein und hab seelische probleme ...

[Oli_G]

Wow, soviele Posts in sokurzer Zeit :spin2:

An genauen Code kann ich mich jetzt net errinern... weiß nur dass wir (bzw die anderen) das Programm mit Schleifen und nen paar anderen Befehlen programmiert haben... kann mich an folgendes errinern: StrtToInt, s[i] (weiß nimmer was da integer und was als string deklariert war)... und... öh... an mehr kann ich mich grad net errinern *G*

Naja, auf jeden Fall war die Funktion des Programmes das mit Hilfe von Schleifen jeder einzelne Buchstabe überprüft und wenn die If-Bedingung dann gepasst hat wurde sie dann halt ersetzt etc. und bliblablo


PS: Sollte ganz einfach Quelltext sein... wir sollens ja auch schließlich auswendig können :)

[GLaforge]

Hi,

Delphi-Quellcode:

if ä then ae

meintst du sowas?
s[i]--> beschreibt array (IMHO)

cu

[Nicodius]

hats was gebracht?

okay um Daniel Flomei etc vorzugreifen

Hüs machen wir nicht
Wir helfen gerne bei Problemen
Wir brauchen aber genaue Angaben und nützliche Titel


wenn einer dieser punkte nicht zutrifft kan nes mal vorkommen das jemand nicht weiß was du meinst :mrgreen:

[Oli_G]

*args*
...ich google mir nenn anderes forum... :|

[GLaforge]

Ich würde dir ja wirklich konkret helfen, aber du gibst zu wenig Details. Was z.b. soll mit diesem StrToInt???? Wenn alles nichts hilft nimm wirklich

Code:

StringReplace

cu

[Nicodius]

und am besten du suchst danach! StringReplace

[Daniel]

Zitat:

Zitat von Oli_G

Wow, soviele Posts in sokurzer Zeit :spin2:

Bitte nutze dennoch die Gunst der Stunde, in den Titel Deines Threads anzupassen. ;-) Einfach bei Deinem ersten Beitrag auf 'edit' klicken'.

Zitat:

Zitat von Nicodius

er hat jetz twas er wollte nörgelt nicht imemr üebr mich

ich war jetzt laneg allein und hab seelische probleme ...

Es geht nicht darum, stets über Dich nörgeln zu wollen, sondern Dich wenigstens im Moment überproportional häufig bitten zu müssen, daß Du Dich eine Idee am Riemen reißt. Schwierigkeiten im privaten Bereich haben unweigerlich Auswirkungen auf unser Handeln - im Positiven wie im Negativen. Aber es gehört leider mit zu meinen Aufgaben als Betreiber dieses Forums, darauf zu drängen, dass gewisse Grundregeln eingehalten werden müssen. Ich kann es einfach nicht zulassen, dass sich User hier über die Stränge schlagen, wenn sie sich schlecht fühlen. Das mag zwar irgendwo verständlich und in gewissen Grenzen auch nachvollziehbar sein, aber wir würden hier im Chaos versinken, wenn ich dies einreißen ließe.

Zitat:

Zitat von Oli_G

...ich google mir nenn anderes forum...

Das steht Dir natürlich frei. Aber wieso? Du hast (a) eine Handvoll Hinweise auf unsere Richtlinien erhalten und (b) eine Handvoll Hinweise auf korekte Lösungsansätze erhalten.

[Nicodius]

okay daniel tut mir leid werds lassen

[Oli_G]

Die Lösungsansätze habe ich schon wahrgenommen, aber ich denke der mir beigebrachte Weg ist der am einfachsten zu verstehende (und auch der einfachste zum auswendig lernen ;) ).
Desweiteren verstehe ich kaum die Basics und kann mit noch tiefgreifenderen Methoden nichts anfangen :pale:

PS: Das mitm anderen Forum war nur nebenher -> je mehr Leute gefragt werden, je mehr Antworten gibt es =)

Edit: Hab eben grad nochma das Übungsblatt für die Klausur gefunden :) :::
Schreibe eine Prozedur Tform1.BVerfremdungen.Click, welche einen normalen Text (bestehend aus mehreren Zeilen) in die Hühnersprache übersetzt.

Die Form, auf der dieses Programm verwirklicht wird, enthält neben dem Button Bverfremden die beiden Memofelder MEingabe und MAusgabe.

Die Hühnersprache funktioniert so:
Aus "Peter" wird "P bi e bi t bi e bi r bi"

Anleitung:
Wie im Unterricht wird der Text in einer Doppelschleife Buchstabe für Buchstabe eingelesen. Beim Ausgabestring wird jedoch nach jedem Buchstaben aus der Eingabe das "bi" eingefügt.




So... btw: das war nen IntToStr bei den anderen aufgaben.. kein StrToInt <- glaub ich eher unwichtig!

[fkerber]

Hi!

Verstehst du das mit der Hühgnersprache oder ist dir da auch etwas unklar?
Falls dem so, mach am besten einen neuen Thread auf, der sich mit diesem Problem beschäftigt.


Ciao fkerber

[Oli_G]

Die Programmierung von dem ganzen macht mir zu schaffen...

[MathiasSimmack]

Ich wollte nur anmerken, dass es mit dem "Verständnis" scheinbar generell hapert. Ach ja, und hier bin ich auch ab und zu, @Oli.

PS: Im DF wurde der Beitrag bereits gelöscht. :zwinker:

[fkerber]

Hi!

Dann mach nen neuen Thread auf, zeig uns, was du bisher programmiert hast und sag uns, wo genau was nicht funktioniert.

Ciao fkerber

[MathiasSimmack]

Hui, im DF habe ich gerade ein "lmaa" (leck mich am a***) kassiert, weil ich ihm seine Hausaufgabe nicht machen wollte. Das nimmt mich doch sehr mit. :cry:

[Luckie]

Die Prozedur Insert könnte hier uach helfen.

[Oli_G]

@MathiasSimmack
Das war für die dummen Anmerkungen von dir die du noch dazu ziemlich feige in "winzig" geschrieben hast.

@ALL: Hab beantragt, dass der Thread geschlossen/gelöscht wird! Hab Hilfe gefunden =)
THX für die ganzen Posts...

[Luckie]

Warum sollten wir schließen oder löschen? Eventuell haben ja andere auch das Problem. Also ich werde hier gar nichts machen.

[Nicodius]

der post zerreißt die menge :D

[FriFra]

So geht's:

Delphi-Quellcode:

function Huenerize(Wert: string): string;
var
  n: integer;
begin
  Result := Wert;
  for n := Length(Result) downto 2 do
    Result := copy(Result, 1, n - 1) + ' bi ' + copy(Result, n,
      Length(Result));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := Huenerize(Edit1.Text);
end;

Rückwärts geht's damit:

Delphi-Quellcode:

function DeHuenerize(Wert: string): string;
begin
  Result := StringReplace(Wert, ' bi ', '', [rfReplaceAll]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := DeHuenerize(Edit2.Text);
end;

[Udontknow]

Ne, so geht das doch nicht! Was wird denn wohl aus dem Satz "Lieber bi als nie!", wenn ich ihn durch den Hühnerizer und anschliessend durch den Dehühnerizer jage? :mrgreen:

Cu,
Udontknow

[FriFra]

Doch, so geht das! :evil:

Hast Du es denn überhaupt getestet? NEIN, HAST DU NICHT!!!

"Lieber bi als nie!" -> "L bi i bi e bi b bi e bi r bi bi b bi i bi bi a bi l bi s bi bi n bi i bi e bi !" -> "Lieber bi als nie!"

8) Ich könnte dazu jetzt noch einen bekannten Satz von Peter Nuhr schreiben... ich verkneif es mir aber...

[Udontknow]

Äh richtig... Ist schon zu spät... :stupid:

[Oli_G]

Bin grad in der Schule...
Hier der Code von der Umwandlung von dem Umlaut 'ö':

Code:

 var s,ausgabe: string;
 var i: integer;

procedure TForm1.Button1Click(Sender: TObject);

begin
s:=edit1.text;
Edit2.text:='';
ausgabe:='';
for i:=1 to length(s) do
  begin
  if s[i]='ö' then
    begin
    ausgabe:=ausgabe+'oe'
    end
    else
    ausgabe:=ausgabe+s[i];
  end;

edit2.text:=ausgabe;
end;

end.