AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TeilString aus Stringliste Löschen

Ein Thema von Susanne · begonnen am 9. Sep 2004 · letzter Beitrag vom 13. Sep 2004
Antwort Antwort
Seite 1 von 2  1 2   
Susanne

Registriert seit: 21. Mai 2004
Ort: Lage
232 Beiträge
 
Delphi 2005 Professional
 
#1

TeilString aus Stringliste Löschen

  Alt 9. Sep 2004, 11:50
Hallo,

ich habe eine Stringliste, mit vielen Einträgen. Jede Liste enthält auf jedenfall irgendwo ein Komma und alles bis zum Komma einschliesslich möchte ich aus dem einzelnen String löschen, wie mache ich das?

Gruss
Susanne
Susanne
  Mit Zitat antworten Zitat
zappel

Registriert seit: 30. Jan 2004
65 Beiträge
 
Delphi 2005 Personal
 
#2

Re: TeilString aus Stringliste Löschen

  Alt 9. Sep 2004, 12:07
Hallo!
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
begin
  s:='aaaaaaaaaa,bbbbb';
  s:=Copy(s,Pos(',',s)+1,Length(s));
end;
s enthält dann den string "bbbbb".
  Mit Zitat antworten Zitat
Susanne

Registriert seit: 21. Mai 2004
Ort: Lage
232 Beiträge
 
Delphi 2005 Professional
 
#3

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 11:27
Hallo,

gut, in s steht nun alles was nach dem Doppelpunkt kommt. Ich möchte jetzt aber auch nur noch 12345678 einlesen, alles was danach kommt nicht mehr. Wie mache ich das? Irgendwas mit pos und er soll die Stelle suchen, wo das nächste Zeichen ist keine Zahl mehr? Wie mache ich das?


Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
begin
  s:='bbbb : 12345678_sged 233';
  s:=Copy(s,Pos(':',s)+1,Length(s));
  s:='12345678_sged 233';


end;
Susanne
  Mit Zitat antworten Zitat
mytar

Registriert seit: 30. Mai 2004
Ort: Zermatt
411 Beiträge
 
Delphi 6 Enterprise
 
#4

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 11:30
Suche mal in der OH nach Delphi-Referenz durchsuchenDelete()!
Francis Obikwelu
greetz
mytar
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#5

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 11:33
Zitat von mytar:
Suche mal in der OH nach Delphi-Referenz durchsuchenDelete()!
Um festezustellen welchen Zeichen keine Zahl mehr ist empfehle ich Dir die Funtion Val
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Susanne

Registriert seit: 21. Mai 2004
Ort: Lage
232 Beiträge
 
Delphi 2005 Professional
 
#6

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 12:06
ich hab in der Hilfe geguckt, werde aber nicht schlau aus val oder delete, vielleicht ein Beispiel oder noch ein paar Tips?
Susanne
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#7

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 12:08
Zitat von Susanne:
... vielleicht ein Beispiel oder noch ein paar Tips?
Büdde:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  code : Integer;
  zahl : Integer;
begin
  s:='bbbb : 12345678_sged 233';
  s:=Copy(s,Pos(':',s)+1,Length(s));
  val (s,zahl,code); // Es wird versucht einen String in eine Zahl zu wandeln
  if (code = 0) then // String konnte in eine Zahl umgewandelt werden
  begin
    ShowMessage (IntToStr (zahl));
  end
  else
  begin
    s := Copy (s,1,code-1);
    ShowMessage ('Ohne Zeichen ist es' + s);
  end;
end;
[Edit]Wenn in der Variabel code eine Wert >0 steht gibt dieser die Position+1 im String an bei der die Umwandlung fehlgeschlagen ist. In deinem Fall also das erste Zeichen welches keine Zahl ist.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Benutzerbild von Spezi1980
Spezi1980

Registriert seit: 11. Aug 2003
Ort: Dresden OT Cossebaude
71 Beiträge
 
Delphi 2005 Personal
 
#8

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 13:04
Zitat von Sharky:
Zitat von Susanne:
... vielleicht ein Beispiel oder noch ein paar Tips?
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  code : Integer;
  zahl : Integer;
begin
  s:='bbbb : 12345678_sged 233';
  s:=Copy(s,Pos(':',s)+1,Length(s));
  val (s,zahl,code); // Es wird versucht einen String in eine Zahl zu wandeln
  if (code = 0) then // String konnte in eine Zahl umgewandelt werden
  begin
    ShowMessage (IntToStr (zahl));
  end
  else
  begin
    s := Copy (s,1,code-1);
    ShowMessage ('Ohne Zeichen ist es' + s);
  end;
end;
oder so:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
  code : Integer;
  zahl : Integer;
  I : Integer;
begin
  s:='bbbb : 12345678_sged 233';
  s:=Copy(s,Pos(':',s)+1,Length(s)); //alles vorm Doppelpunkt löschen
  s:= trim(s); //leerzeichen löschen
  for I:=0 to length(s) do
  begin //jedes Zeichen testen, ob Zahl
    if not (S[i] in ('1'..'9','0')) then
    begin
      s := copy(s,1,I-1); //alles in s kopieren was Zahl ist
      Break;
    end;
  end;
end;
(kann noch Fehler enthalten, hab das jetzt mal schnell Quick&Dirty ohne Delphi gemacht)
Robert
Codito, ergo sum.
>>I code, therefore I am<<
  Mit Zitat antworten Zitat
Susanne

Registriert seit: 21. Mai 2004
Ort: Lage
232 Beiträge
 
Delphi 2005 Professional
 
#9

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 13:16
danke, hat damit geklappt und ich hab es jetzt auch verstanden
Susanne
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#10

Re: TeilString aus Stringliste Löschen

  Alt 10. Sep 2004, 20:17
Zitat von Susanne:
danke, hat damit geklappt und ich hab es jetzt auch verstanden
Hai Susanne,
eine Frage: Hast Du die Funktionsweise von Val verstanden oder den Code von Robert?
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 11:14 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