Entwickler-Ecke
Algorithmen, Optimierung und Assembler - kopieren bis ';'
GI_PC - Do 22.02.07 19:46
Titel: kopieren bis ';'
Hallo Leute
Ich habe hier ein Kode, wo man den satz bis ';' kopiert, von ein List box auf ein andere kopieren, ich verstehe es aber nicht so richtig.
Kann ihr mir bitte erklären? Geht es auch anders?
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:
| procedure TForm1.btntransfertClick(Sender: TObject); var I1,I2: integer; X,s: string; begin I1:=0; while I1 < lblec.items.count do begin s:= lblec.items[I1]; I2:=1; X:=' '; while X <>';' do begin I2:=I2+1; X:= copy (s,I2,1); end; lbnom.items.append(copy (S,1,I2-1)); lbchi.items.append(copy (S,I2+1,length(s)-I2)); I1:=I1+1 end; end; |
Danke GI_PC
Moderiert von
Christian S.: Delphi-Tags hinzugefügt
Mr_Sven - Do 22.02.07 20:29
Wat umständlich
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15:
| uses strUtils;
procedure TForm1.btntransfertClick(Sender: TObject); var I1,I2: integer; X,s: string; begin I1:=0; while I1 < lblec.items.count do begin s:=lblec.items[I1]; I2:=pos(s,';'); lbnom.items.append(LeftStr(s,I2-1)); lbchi.items.append(RightStr(s,Length(s)-I2)); end; end; |
so besser?
Gruß Sven
GI_PC - Do 22.02.07 20:34
ja das sieht schon viel einfacher aus, aber was ist "LeftStr" und "RightStr"??
Jacer - Do 22.02.07 20:37
GI_PC hat folgendes geschrieben: |
ja das sieht schon viel einfacher aus, aber was ist "LeftStr" und "RightStr"?? |
LeftStr ist der Teil des Strings vor dem ";" und RightStr ist der Teil nach dem Semikolon!
GI_PC - Do 22.02.07 20:43
ach so, ok,
aber mein program läuft nicht, mit diese Methode.
Jacer - Do 22.02.07 21:59
Dann poste mal bitte deinen momentanen Quellcode!
Da sieht man das meistens am Besten!
GI_PC - Do 22.02.07 22:10
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
| procedure TForm1.btntransfertClick(Sender: TObject); var I1,I2: integer; X,s: string; begin
I1:=0; while I1 < lblec.items.count do begin s:=lblec.items[I1]; I2:=pos(s,';'); lbnom.items.append(LeftStr(s,I2-1)); lbchi.items.append(RightStr(s,Length(s)-I2)); end; end; |
Moderiert von
raziel: Delphi-Tags hinzugefügt
jakobwenzel - Do 22.02.07 22:26
I1 wird nicht erhöht.
And Ende der Schleife muss noch: Inc(i1);
PS: Wenn du den Fehler sagst, wäre es besser.
Mr_Sven - Do 22.02.07 22:47
sry, mein Fehler, hab übersehn, dass das ne while Schleife is
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!