Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Insert mit Konstante? (https://www.delphipraxis.net/94774-insert-mit-konstante.html)

Lotus 26. Jun 2007 20:15


Insert mit Konstante?
 
nun ich würde gerne noch mal eine frage stellen:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var wort2,ka:string;
i:integer;
begin
inc(merker);
wort2:=AnsiLowerCase(e2.Text);

if wort=wort2 then
loesung.Caption:='Gewonnen!!!'
else if (wort2 < wort) then begin
        for i:=1 to length(wort2) do begin
                if (wort2[i]=wort[i]) then insert(ka,wort2[i],1)
                else showmessage('nee');
                end;

        end
end;
er sagt mir, das das mit dem insert so nicht klappt, wegen diesem konstantenobjetk, wahrscheinlich wort2[i].. wisst ihr vllt wie ich das umgehn kann? bzw sagen kann welchen buchstaben er dann einfügen soll?

mkinzler 26. Jun 2007 20:19

Re: Insert mit Konstante?
 
Der 2. Parameter muß eine Stringvaribale sein, weil dies ein var-Paramter ist.
wort[i] ist aber ein Char.

Lotus 26. Jun 2007 20:30

Re: Insert mit Konstante?
 
ja hm.. wie kann ich dieses problem denn dann umgehen? ich kann ja nicht einfach sagen a oder b.. weil wenns c is, das einfach nicht hinkomment ;)

mkinzler 26. Jun 2007 20:34

Re: Insert mit Konstante?
 
Was hast du eigentlich vor?

lbccaleb 26. Jun 2007 20:35

Re: Insert mit Konstante?
 
das mit den char müsste doch so gehen, denn von den beiden strings wort und wort2 werden doch auch nur jeweil 1 buchstabe miteinander verglichen??!!

es müsste doch gehen wenn du in der zeile

Delphi-Quellcode:
else if (wort2 < wort) then begin // das so machst:
else if length(wort2) < length(worth) then begin

MrSpock 26. Jun 2007 20:37

Re: Insert mit Konstante?
 
Hallo Lotus,

benutze doch:

Delphi-Quellcode:
insert(ka, Copy(wort2, i, 1), 1)

Lotus 26. Jun 2007 20:42

Re: Insert mit Konstante?
 
Zitat:

Zitat von mkinzler
Was hast du eigentlich vor?

also ich hatte vor, das ein User 1 ein Wort eingibt, z.B. 'Hallo'
dieses wird gespeichert und Spieler 2 soll mit Hilfe von anderen Wörtern versuchen die richtigen Buchstaben zu erraten! Soll heissen wenn der 2. User jetzt Ball eingibt, soll irgendwo "all" stehen weil diese Buchstaben ja korrekt uebereinstimmten! Am besten dann noch davor und danch sowas wie _all_ damit man weiss wieviele Buchstaben insgesamt vorhanden sind!


@lbccaleb
was sollte das denn aendern oO? dann funktioniert mein insert doch trotzdem nicht!

@mrspock
danke.. das werde ich gleich einmal ausprobieren!

mkinzler 26. Jun 2007 20:45

Re: Insert mit Konstante?
 
Kann es sein, daß du die Reihenfolge der Parameter vertauscht hast? Der 2. bezeichnet das Ziel.

MrSpock 26. Jun 2007 20:48

Re: Insert mit Konstante?
 
mkinzler hat natürlich Recht. Was ich oben geschrieben habe, kann nicht funktionieren, weil ja der zweite Parameter das Ziel angeben muss und der erste den String, der eingefügt werden soll.

Lotus 26. Jun 2007 20:49

Re: Insert mit Konstante?
 
Zitat:

Zitat von mkinzler
Kann es sein, daß du die Reihenfolge der Parameter vertauscht hast? Der 2. bezeichnet das Ziel.

... jah, und du hast es schon wieder erkannt gehabt.. omG echt klasse =)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:29 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz