Forum: Programmieren allgemein
by Natcree,
19. Dez 2017
Danke jetz klappt es XDDD
Forum: Programmieren allgemein
by Natcree,
19. Dez 2017
sline ist dann ein String?
procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
iPos: Integer;
sline:string;
begin
for i := Memo1.Lines.Count - 1 downto 0 do
begin
Forum: Programmieren allgemein
by Natcree,
19. Dez 2017
er erkennt SysUtils nicht
Unit1.pas(74): Undeclared identifier: 'SysUtils'
Forum: Programmieren allgemein
by Natcree,
19. Dez 2017
habe in eingen zeilen so etwas zu stehen
125 1 Haustier 5,00 4,67 5,00 0,2% 4,67 5,00 0,2% 20 0 -1
Ich will in solchen Zeilen alles hinter dem letzten % zeichen löschen
Forum: Programmieren allgemein
by Natcree,
19. Dez 2017
Hallo ich möchte in einem Memo in einer Zeile nach einem '%' suchen und mchte wenn es das 7. letzte Zeichen ist alles dannach löschen. nach einem STring suchen mache ich so
for i := Memo1.Lines.Count - 1 downto 0 do
if Pos('#', Memo1.Lines) <> 0 then
jedoch habe ich mehrere % zeichen in meinem Memo die auch drin bleiben sollen. es geht nur um die % welche sich an 8 letzter position der...