Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Array
klabri - Do 22.04.10 19:23
Titel: Array
Hallo
ich möchte gerne ,dass in diesem
Array
[3,5,7,9,11,13,17........]
die 7 'gelöscht' wird und alle Zahlen nach der 7
eine Stelle vorrücken..
Moderiert von 
Narses: Topic aus Algorithmen, Optimierung und Assembler verschoben am Fr 23.04.2010 um 01:18
FinnO - Do 22.04.10 19:29
TList verwenden.
Chemiker - Do 22.04.10 19:32
Hallo klabri,
dann wird Dir nichts anderes übrig bleiben und alle Nachfolgende Zahlen auszulesen und einen Platz nach vorne in den Array zu speichern. Wenn das öfters vorkommt, würde ich mit einer Liste arbeiten.
Bis bald Chemiker
klabri - Fr 23.04.10 00:42
Hallo,
danke für den Tipp mit TStringList,Anlegen und Ausgeben einer Liste funktioniert,
was nicht funktioniert ist ,bestimmte Zahlen ,z.Bsp alle durch 3 teilbaren Zahlen
zu entfernen. Es funktioniert mit 2, aber nicht mit 5 oder 7 ...
Leider finde ich den Fehler nicht .
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
|
var List:TStringList;
i,p:integer;
begin
List:=TStringList.Create;
try
for i:= 2 to 50 do begin
List.Add(Inttostr(i));
end;
for i := List.Count-1 downto 0 do /??????????????????????
begin
p:=StrtoInt(Edit1.Text); / hier sollten alle Zahlen aus
if i mod p =0 then / der Liste entfernt werden ,
/ die durch p ohne Rest teilbar sind;
begin / funktioniert nicht richtig ....
List.Delete(i);
end;
Memo1.Lines.Add(List.Text);
end;
finally;
List.Free;
end;
end; |
klabri - Fr 23.04.10 01:01
Hallo,
der Fehler ist gefunden ;so funktioniert es ; hier werden z.Bsp alle Zahlen,teilbar
durch 7 gelöscht; danke für die Hilfe;
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| for i:= 0 to 50 do begin
List.Add(Inttostr(i));
end;
for i := List.Count-1 downto 2 do
begin
if i mod 7=0 then
begin
List.Delete(i);
end;
end;
Memo1.Lines.Add(List.Text); |
jaenicke - Fr 23.04.10 07:30
Wie kommst du eigentlich plötzlich auf TStringList? Vorgeschlagen wurde schließlich TList. Denn so wandelst du die Zahlen in Strings um statt direkt mit den Zahlen zu arbeiten...
klabri - Sa 24.04.10 00:17
Hallo Jaenicke,
TStringList, weil ich zu dem Thema zuerst etwas gefunden habe,was verständlich geschrieben war,gut umzusetzen war.
---
Moderiert von Narses: Beiträge zusammengefasst---
Zur Ergänzung , das ganze sollte dazu dienen eine Liste mit Primzahlen zu erstellen.
2-3-4-5-6-7-8-9
2-3-5-7-9
2-3-5-7......usw.
,funktioniert aber so nicht, weil die Liste irgendwie immer überschrieben wird.
Hat jemand noch einen guten Tipp ?
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!