AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Copy Pos Delete - Bin auf dem Holzweg...
Thema durchsuchen
Ansicht
Themen-Optionen

Copy Pos Delete - Bin auf dem Holzweg...

Ein Thema von DRPEnc · begonnen am 17. Jul 2004 · letzter Beitrag vom 17. Jul 2004
Antwort Antwort
Seite 1 von 2  1 2      
DRPEnc

Registriert seit: 20. Feb 2004
Ort: Noch unterm Mond
126 Beiträge
 
#1

Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 04:32
Normalerweise ist dies einfach zu lösen, bin aber zulang
wach um noch klar denken zu können.

Ich hab einen String, welcher folgendermaßen aussieht:

Wort1,Wort2,Wort3,Wort4,Wort5

Ich will nun diese einzelnen Wörter in jeweils
eine Edit packen.

Sprich Wort1 in Edit1.
Wort2 in Edit2 etc.

Nur will das nicht hinhauen:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.items.LoadFromFile('File.1');
listbox2.items.LoadFromFile('File.2');
Memo2.text := (Listbox1.Items.Text) ;
Memo3.text := (Listbox2.Items.Text) ;
Memo1.Text := XorString(Memo2.Text, Memo3.Text);
Edit1.text := Copy(memo1.text, 1, Pos(',', memo1.text) - 1);
Delete(memo1.text, 1, Pos(',', memo1.text));
Edit2.text := Copy(memo1.text, 1, Pos(',', memo1.text) - 1);
Delete(memo1.text, 1, Pos(',', memo1.text));
Edit3.text := Copy(memo1.text, 1, Pos(',', memo1.text) - 1);
Delete(memo1.text, 1, Pos(',', memo1.text));
Edit4.text := Copy(memo1.text, 1, Pos(',', memo1.text) - 1);
Delete(memo1.text, 1, Pos(',', memo1.text));
Edit5.text := Copy(memo1.text, 1, Pos(',', memo1.text) - 1);
Delete(memo1.text, 1, Pos(',', memo1.text));
end;
[Error] WZCreator.pas(105): Constant object cannot be passed as var parameter

Was mach ich

Habs schon:

Delphi-Quellcode:
Memo1.Text := XorString(Memo2.Text, Memo3.Text);
s := Memo1.Text;
Edit1.text := Copy(s, 1, Pos(',', s) - 1);
Delete(s, 1, Pos(',', s));
Edit2.text := Copy(s, 1, Pos(',', s) - 1);
Delete(s, 1, Pos(',', s));
Edit3.text := Copy(s, 1, Pos(',', s) - 1);
Delete(s, 1, Pos(',', s));
Edit4.text := Copy(s, 1, Pos(',', s) - 1);
Delete(s, 1, Pos(',', s));
Edit5.text := Copy(s, 1, Pos(',', s) - 1);
Delete(s, 1, Pos(',', s));
CU

DRPEnc
  Mit Zitat antworten Zitat
supermuckl

Registriert seit: 1. Feb 2003
1.340 Beiträge
 
FreePascal / Lazarus
 
#2

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 04:34
copy braucht als zweiten parameter die POSITION da wo du überall die 1 stehen hast und in dem 3. brauchst die zu kopierende länge ( nicht die position wie bei dir )
Das echte Leben ist was für Leute...
... die im Internet keine Freunde finden!
  Mit Zitat antworten Zitat
Rackergen2

Registriert seit: 13. Jul 2004
99 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 04:49
Zitat von supermuckl:
copy braucht als zweiten parameter die POSITION da wo du überall die 1 stehen hast und in dem 3. brauchst die zu kopierende länge ( nicht die position wie bei dir )
Denk doch mal mit! Er will vom Anfang bis zum Komma kopieren... Was nimmt man da? pos()!
  Mit Zitat antworten Zitat
Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 04:59
Wir hatten doch hier schon mal irgendwo einen Thread, in dem es um eine Funktion "Explode" ging (oder so ähnlich). Diese sollte einen String an einem bestimmten Zeichen "zerschneiden". Das könnte dir hier auch weiterhelfen... evtl. weiss die OH was dazu (ich weiss nicht mehr, ob es jetzt eine mit Delphi mitgelieferte Funktion war, oder ob die jemand von hier geschrieben hat...)
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat
supermuckl

Registriert seit: 1. Feb 2003
1.340 Beiträge
 
FreePascal / Lazarus
 
#5

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 05:04
ach jetzt wo du es sagst.. sehe ich das er auchnoch deleten o_O

Delphi-Quellcode:
function Tform1.splitOutIndex(Source: String; Delimiter: String; Index: Integer): String;
var count, number: Integer;
    giveback: String;
begin
count := 1;
number := 0;
giveback := '';
while (count <= length(Source)) and (number <= index) do
begin
  if copy(Source, count, length(Delimiter)) = Delimiter then
  begin
   number := number + 1;
   count := count + length(Delimiter);
  end else begin
   if number = Index then giveback := giveback + Source[count];
   count := count + 1;
  end;
end;
result := giveback;
end;
//--------------------------------------------------------

function Tform1.VBSplit(Liste: TStringList; Text2Split, SeperatorStr: String): Boolean;
Var Posi     : Longint;
      strTemp : String;
      strPart : String;
      bInLoop : Boolean;
      sepLen : Longint;
begin
   result := true;
   bInLoop := false;
   try
      //Liste leeren
      Liste.clear;
      strTemp := Text2Split;
      sepLen := Length(SeperatorStr);
      Posi := Pos(SeperatorStr,strTemp);
      While Posi > 0 do begin
         bInLoop := true;
         strPart := Copy(strTemp,1,Posi-1);
         Liste.Add(strPart);
         strTemp := copy(strTemp,Posi+sepLen,Length(strTemp)-(Posi+sepLen-1));
         Posi := Pos(SeperatorStr,strTemp);
      end;
      if (bInLoop) or (Length(strTemp)>0) then
         Liste.add(strTemp);
   except
      Result := false;
   end;
end;

//--------------------------------------------------------
Das echte Leben ist was für Leute...
... die im Internet keine Freunde finden!
  Mit Zitat antworten Zitat
Benutzerbild von Tyler
Tyler

Registriert seit: 19. Jun 2003
Ort: Berlin
241 Beiträge
 
#6

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 10:54
ola!

ich hab´s bei mir n bisschen kürzer:
Delphi-Quellcode:
        temp1 := memo1.Text;
        repeat
          i := 0;
          repeat
            i := i + 1;
          until temp1[i] = '+';
          memo2.Lines.Add(LeftStr(temp1,i-1));
          Delete(temp1,1,i);
        until temp1 = '';
hier wird der text in einem memo1 nach dem Trennzeichen "Plus" abgesucht, der Text davor erst kopiert, dann entsprechend abgeschnitten,und als separate Line in eine 2. Memobox geschrieben.


tyler
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 10:59
@Tyler: Die äußere Schleife würde ich zu einer While schleife umformen da es vorkommen kann das im Memo gar nix steht. Ansonsten wäre da nur noch anzumerken das sie ziemlich unperformant ist da ständig hinn und her kopiert wird etc. Ich hab hier mal so ne Function gepostet mit der Bitte das diese auf Performance hinn verbessert wird und rausgekommen ist eine procedure die recht schnell ist

Hier mal die Funktionen:
Delphi-Quellcode:
function splitOutIndex(const Source: String; const Delimiter: String; Index: Integer): String;
var Lcount, Lnumber, LSourceLength, LDelLength, LStart, LEnd: Integer;
begin
  LCount := 1;
  Lnumber := 0;
  if Index = 0 then LStart := 1 else LStart := 0;
  LEnd := 0;
  result := '';
  LSourceLength := length(Source);
  LDelLength := length(Delimiter);
  while (LCount <= LSourceLength) and (LEnd = 0) do
  begin
    if copy(Source, LCount, LDelLength) = Delimiter then
    begin
      inc(LNumber);
      if LNumber >= Index then
      begin
        if LStart = 0 then
           LStart := LCount + LDelLength
        else
        begin
           LEnd := LCount;
           result := copy(Source, LStart, LEnd - LStart);
        end;
      end;
      Lcount := Lcount + LDelLength;
    end else inc(LCount);
  end;
  if (LStart > 0) and (LEnd = 0) then
      result := copy(Source, LStart, LSourceLength - LStart + 1);
end;


procedure splitString(const Source: String; const Delimiter: String; var Dest: TStringlist);
var count: Integer;
      LStartpos, LEndepos, LSourcelength: Integer;
      LDelimiterLength : Integer;
begin
   Dest.Clear;
   count := 1;
   LStartpos := 0;
   LEndepos := 0;
   LSourcelength := length(Source);
   LDelimiterLength := Length(Delimiter);
   while count <= LSourcelength do begin
      if copy(Source, count, LDelimiterLength) = Delimiter then begin
         LEndepos := count;
         dest.Add(copy(Source, LStartpos + 1, LEndepos - LStartpos - 1));
         LStartpos := count + LDelimiterLength - 1;
         inc(count,LDelimiterLength);
      end
      else begin
         inc(count);
      end;
   end;
   if LEndePos <> Count - LDelimiterLength then
         dest.Add(copy(Source, LStartpos + 1, count - LStartpos - 1));
end;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Nightshade

Registriert seit: 7. Jan 2003
Ort: Menden
192 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 11:32
Delphi-Quellcode:
function split(s:string; splitchar : char) : TStrings;
var a : integer;
  tmp : string;
begin
  if NOT assigned(result) then exit;
  result := TStringlist.create;
  tmp := s;
    a := pos(splitchar,tmp);
  while a > 0 do begin
    delete(tmp,a,1);
    insert(#13#10,tmp,a);
    a := pos(splitchar,tmp);
  end;
  result.Text := tmp;
end;
Schön kurz
Christian
Killing for peace is like fucking for virginity

Nightshade
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#9

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 11:35
@Nightshade: Die function wird doch nie ausgeführt weil
if NOT assigned(result) then exit; immer dafür sorgt das die function frühzeitig verlassen wird. Und durch das Delete und Insert ziemlich unperformant
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Nightshade

Registriert seit: 7. Jan 2003
Ort: Menden
192 Beiträge
 
Delphi 7 Enterprise
 
#10

Re: Copy Pos Delete - Bin auf dem Holzweg...

  Alt 17. Jul 2004, 11:42
Zitat von SirThornberry:
@Nightshade: Die function wird doch nie ausgeführt weil
if NOT assigned(result) then exit; immer dafür sorgt das die function frühzeitig verlassen wird. Und durch das Delete und Insert ziemlich unperformant
Habs gerade getestet, Die Zeile ist wirklich über, weil Result immer assigned ist )

Also überspringt er sie immer..


Delphi-Quellcode:
function split(s:string; splitchar : char) : TStrings;
var a : integer;
  tmp : string;
begin
  result := TStringlist.create;
  tmp := s;
    a := pos(splitchar,tmp);
  while a > 0 do begin
    delete(tmp,a,1);
    insert(#13#10,tmp,a);
    a := pos(splitchar,tmp);
  end;
  result.Text := tmp;
end;
Dann also so
Christian
Killing for peace is like fucking for virginity

Nightshade
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:50 Uhr.
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