Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
27. Feb 2011
ich versteh gar nicht wie wir auf einmal auf copy gekommen sind :gruebel:
eigentlich habe ich nur deinen ersten Programmartigen Code gemeint. Inzwischen funktioniert das Programm aber sowieso einwandfrei, dank der vielen Tipps.
Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
27. Feb 2011
ihr habt natürlich völlig recht, irgendwie habe ich das vorher garnicht bemerkt :wall:
allerdings versteh ich das mit dem teilstring vom ganzen string abziehen nicht so ganz
Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
27. Feb 2011
tja aber die die pos-funktion ist an mein programm angepasst, bzw. an edit felder angepasst. die 0 oder die -1 gibt nur an dass kein ergebnis gefunden wurde. Genauso gut hätte ich auch eine string ausgeben können.
Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
27. Feb 2011
an '187'
die -1 ist da nur anstatt 0 damit in meinem editfeld klar wird, dass sich das gesuchte ergebnis nicht im string befindet
Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
27. Feb 2011
Hier erstmal mein Quellcode:
function ipos (Const Substr : string; s : String) : integer;
Var i,j : integer;
begin
ipos := 0;
If (length(substr) = 1) then
begin
for i:=1 to length(s) if (s= Substr) then ipos := i;
end
Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
26. Feb 2011
ist es denn wenigstens möglich mir einen Tipp zu geben welche Schleife ich am besten nehmen sollte
Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
26. Feb 2011
moment da muss ich jetzt erst schaffen den code wieder von meinem Server zu ziehen
Forum: Object-Pascal / Delphi-Language
Delphi
by hoan504,
26. Feb 2011
Hallo Delphi - Praxis,
Ich soll für die Schule die Pos - Funktion aus Delphi nachprogrammieren. Dafür soll ich nicht den Assembler benutzen(so etwas ist ja auch schon in der Code Libary).
Leider funktioniert auf meinem Windows 7 die Delphihilfe auch nicht und an Sysutils oder an die Systemunit komme ich nicht dran.
Mein Plan wäre jetzt über eine Schleife den String nach dem ersten Zeichen...