AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Variable aufspallten

Ein Thema von TDR · begonnen am 2. Mär 2011 · letzter Beitrag vom 6. Mär 2011
Antwort Antwort
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#1

AW: Variable aufspallten

  Alt 5. Mär 2011, 12:06
[Klugscheiß]
Zu Lernzwecken kann man es ausnahmsweise ja mal ganz genau nehmen. Die Procedure von -187- könnte man etwas abändern, da dort ein leerer Eintrag in die Liste am Schluß aufgenommen wird. Deshalb wäre hier eine while Schleife (Prüfung am Anfang) geeigneter als eine repeat Schleife (Prüfung am Ende).
[/Klugscheiß]
Delphi-Quellcode:
var
  Pos1: Integer;
  Input,Temp: String;
begin
  Input:=Edit1.Text;
  if Input<>'then // Input[0] würde zu einem Fehler führen, siehe unten
  begin
    Pos1:=Length(Input);
    if Input[Pos1]<>';then Input:=Input+';'; // am Schluß ist ein ; erforderlich
    while Pos(';',Input)>0 do // enthält input ein ;
    begin
      Pos1:=Pos(';',Input); // wo ?
      Temp:=Copy(Input,1,Pos1-1); // strings beginnen in Delphi mit 1
      ListBox1.Items.Add(Temp);
      Delete(Input,1,Pos1); // du bevorzugst delete
      //oder Input:=Copy(Input,Pos1+1,Length(Input)-Pos1);
    end;
  end;
end;

Geändert von Bjoerk ( 5. Mär 2011 um 12:31 Uhr) Grund: edit: Procedure statt Function
  Mit Zitat antworten Zitat
TDR
(Gast)

n/a Beiträge
 
#2

AW: Variable aufspallten

  Alt 6. Mär 2011, 16:33
Vielen Dank
der 2. Code ist mir auch ein bisschen lieber.
Musste ihn aber etwas ab ändern weil sonst das in der Listbox stande (war auch beim 1.code so)

Zitat:
$127.0.0.1
Delphi-Quellcode:
if SMessage<>'then
    begin
      Pos1:=Length(SMessage);
      if SMessage[Pos1]<>';then SMessage:=SMessage+';';
      while Pos(';',SMessage)>0 do
      begin
        Pos1:=Pos(';',SMessage);
        Temp:=Copy(SMessage,2,Pos1-2);
        ListBox1.Items.Add(Temp);
        Delete(SMessage,1,Pos1);
          
    end;
Input = SMessage


Aber trotzdem VIELEN VIELEN DANK
  Mit Zitat antworten Zitat
Antwort Antwort


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 12:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz