Entwickler-Ecke
Algorithmen, Optimierung und Assembler - Array, Integer Problem !
rubooo - Sa 07.05.05 15:49
Titel: Array, Integer Problem !
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
var a: Char; zeilennr: array[1..66] of Integer;
begin
a := ['a'];
if Edit1.Text[zeilennr] in a then
Edit2.Text := '1'
else
ShowMessage('Fehler!');
end; |
wenn ich diesen Code aber nun compilieren will dann spuck mir Delphi das aus ::
| Zitat: |
| Incompatible Types: 'Integer' and 'Array'! |
Kann ich das trotzdem irgendwie hinbekommen das es läuft?
oder kann ich anders angeben wenn ein 'a' in edit1.Text ist das eine '1' in edit2.Text erscheint !
danke für alle antworten !
ps:ich prog erst ein paar wochen :wink:
Moderiert von 
raziel: Delphi- und Quote-Tags hinzugefügt.
WeBsPaCe - Sa 07.05.05 15:54
:welcome: im DF!! :D
Also ich werde aus deinem Code leider nicht schlau. ;)
Vor allem das da:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Button1Click(Sender: TObject);
var a: Char; zeilennr: array[1..66] of Integer;
begin
a := ['a'];
if Edit1.Text[zeilennr] in a then
Edit2.Text := '4'
else
ShowMessage('Fehler!');
end; |
verwirrt mich. Edit-Felder haben keine Zeilen auf die du zugreifen kannst. ;) Du hast nur einen langen String, den du ja auch schon gefunden hast:
Edit1.Text.
Ich glaube, es wäre am besten, wenn du einfach versuchst, zu erklären, was du machen möchtest. ;)
PS.: Du kannst deinen Code (bzw. solltest) in Delphi-Tags setzten. Einfach oben auf
klicken und abändern. ;)
der_zaehe - Sa 07.05.05 16:04
Titel: Re: Array, Integer Problem !
| rubooo hat folgendes geschrieben: |
a := ['a'] |
das ist schon mal sehr seltsam. wundert mich, das das geht. schöner ist.
| rubooo hat folgendes geschrieben: |
if Edit1.Text[zeilennr] in a then
|
der index in den [] ist immer eine integer, nie ein array, daher die fehlermeldung des compilers. dort wo jetzt das array steht müsste eine integer sein.
mit dem befehl Pos kannst du prüfen, ob ein string in einem anderem enthalten ist. das könnte dir helfen.
/edit: mist, wieder zu langsam gewesen :autsch: :)
oder schreib idr doch einfach selber eine funktion, die auf das vorhanden sein von zeichn in nem string prüft. das leieß sich realisieren, in dem du mit ner schleife den ganzen string durchläufst und auf das zeichen prüfst:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| function pruefe : Boolean;
var
i : Integer;
begin
for i := 1 to length(string) do
if string[i] = zeichen then
Result := TRUE
else
Result := FALSE;
end; |
GTA-Place - Sa 07.05.05 16:50
Aber aufpassen, nicht "String" als Variable verwenden, da "String" ein reserviertes Wort in Delphi ist!
Delphi-Quelltext
1:
2:
| var
MyString: String; |
rubooo - So 08.05.05 02:26
ich glaube ich beschreibe lieber was ich coden will :lol: !
also ! es soll überprüft werden: wenn in der ersten edit-Komponente (edit1.Text) sich ein a (der buchstabe) befindet, soll eine 1 (die zahl) in der zweiten edit-Komponente (edit2.Text) angezeigt werden. Un dieser Vorgang bei dem Klick auf den button !
Kann ich den code auch direkt ins Form einbinden ! so das sich es sofort beim eingeben ändert???
hoffe ich habe es gut und verständlich formuliert !
danke
Blackheart - So 08.05.05 03:02
Entweder
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'a' then Edit2.Text:='1';
end; |
Oder
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Edit1.Text = 'a' then Edit2.Text:='1';
end; |
rubooo - So 08.05.05 03:23
ja aber wenn ich mehrere a's in der zeile habe dann zeigt er mir sie nicht alle als 1 an ! deswegen wollte ich ja das array machen weil die zeile 66 zeichen lang is ! un überall wo ein a ist soll ein 1 stehen ! :?: :!:
Blackheart - So 08.05.05 09:17
Dann machs mal so
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=StringReplace(Memo1.Text,'a','1',[rfReplaceAll]);
end; |
GTA-Place - So 08.05.05 14:30
Delphi-Quelltext
1:
2:
| if Pos('a', Edit1.Text) <> 0 then
Edit2.Text := 1; |
Das will er!
Blackheart - So 08.05.05 14:54
und überall wo ein a ist soll ein 1 stehen !
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=StringReplace(Edit1.Text,'a','1',[rfReplaceAll]);
end; |
rubooo - So 08.05.05 14:57
ne geht alles auch net :cry: !
überall wo in edit1 ein a steht soll nach dem click auf button1 in edit2 eine 1 stehen!
aber es sollen auch noch nachher mehrere buchstaben eingesetzt werden !z.B: b = 2 usw ...
hier ist noch meine icq-uin :: 311432073
Blackheart - So 08.05.05 15:03
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure TForm1.Button1Click(Sender: TObject);
var TmpStr: string;
begin
TmpStr:= Edit1.Text;
TmpStr := StringReplace(TmpStr, 'a', '1', [rfReplaceAll, rfIgnoreCase]);
TmpStr := StringReplace(TmpStr, 'b', '2', [rfReplaceAll, rfIgnoreCase]);
TmpStr := StringReplace(TmpStr, 'c', '3', [rfReplaceAll, rfIgnoreCase]);
TmpStr := StringReplace(TmpStr, 'd', '4', [rfReplaceAll, rfIgnoreCase]);
Edit2.Text:=(TmpStr);
end; |
alzaimar - So 08.05.05 16:05
Einen hab ich noch!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| Const
ccSourceChars = 'abcdef';
ccDestChars = '123456';
Var
i,j : Integer;
s : String;
Begin
s := edit1.Text;
For i := 1 to length (s) do begin
j := Pos (Copy (s,i,1), ccSourceChars);
if j>0 then
s[i] := ccDestChars[j];
end;
edit2.Text := s;
End; |
rubooo - So 08.05.05 17:36
danke @Blackheart deine methode war für mich noch am leichtesten zu verstehen ! an alle anderen danke für eure vielen antworten!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!